!=====================================================================
!
!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
!          --------------------------------------------------
!
!          Main authors: Dimitri Komatitsch and Jeroen Tromp
!    Seismological Laboratory, California Institute of Technology, USA
!             and University of Pau / CNRS / INRIA, France
! (c) California Institute of Technology and University of Pau / CNRS / INRIA
!                            February 2008
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
! the Free Software Foundation; either version 2 of the License, or
! (at your option) any later version.
!
! This program is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License along
! with this program; if not, write to the Free Software Foundation, Inc.,
! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
!
!=====================================================================


  subroutine model_ref(x,rho,vpv,vph,vsv,vsh,eta,Qkappa,Qmu,iregion_code,CRUSTAL,Mref_V)

  implicit none

  include "constants.h"

! model_ref_variables
  type model_ref_variables
    sequence
      double precision, dimension(NR_REF) :: radius_ref
      double precision, dimension(NR_REF) :: density_ref
      double precision, dimension(NR_REF) :: vpv_ref
      double precision, dimension(NR_REF) :: vph_ref
      double precision, dimension(NR_REF) :: vsv_ref
      double precision, dimension(NR_REF) :: vsh_ref
      double precision, dimension(NR_REF) :: eta_ref
      double precision, dimension(NR_REF) :: Qkappa_ref
      double precision, dimension(NR_REF) :: Qmu_ref
  end type model_ref_variables

  type (model_ref_variables) Mref_V
! model_ref_variables

! input:
! dimensionless radius x

! output: non-dimensionalized
! mass density rho
! compressional wave speed vpv
! compressional wave speed vph
! shear wave speed vsv
! shear wave speed vsh
! dimensionless parameter eta
! shear quality factor Qmu
! bulk quality factor Qkappa

  integer iregion_code

  double precision x,rho,vpv,vph,vsv,vsh,eta,Qmu,Qkappa

  integer i

  double precision r,frac,scaleval
  logical CRUSTAL

! compute real physical radius in meters
  r = x * R_EARTH

  i = 1
  do while(r >= Mref_V%radius_ref(i) .and. i /= NR_REF)
    i = i + 1
  enddo

! make sure we stay in the right region
  if (iregion_code == IREGION_INNER_CORE .and. i > 180) i = 180

  if (iregion_code == IREGION_OUTER_CORE .and. i < 182) i = 182
  if (iregion_code == IREGION_OUTER_CORE .and. i > 358) i = 358

  if (iregion_code == IREGION_CRUST_MANTLE .and. i < 360) i = 360
  if (CRUSTAL .and. i > 717) i = 717


  if (i == 1) then
    rho = Mref_V%density_ref(i)
    vpv = Mref_V%vpv_ref(i)
    vph = Mref_V%vph_ref(i)
    vsv = Mref_V%vsv_ref(i)
    vsh = Mref_V%vsh_ref(i)
    eta = Mref_V%eta_ref(i)
    Qkappa = Mref_V%Qkappa_ref(i)
    Qmu = Mref_V%Qmu_ref(i)
  else

! interpolate from radius_ref(i-1) to r using the values at i-1 and i
    frac = (r-Mref_V%radius_ref(i-1))/(Mref_V%radius_ref(i)-Mref_V%radius_ref(i-1))

    rho = Mref_V%density_ref(i-1) + frac * (Mref_V%density_ref(i)-Mref_V%density_ref(i-1))
    vpv = Mref_V%vpv_ref(i-1) + frac * (Mref_V%vpv_ref(i)-Mref_V%vpv_ref(i-1))
    vph = Mref_V%vph_ref(i-1) + frac * (Mref_V%vph_ref(i)-Mref_V%vph_ref(i-1))
    vsv = Mref_V%vsv_ref(i-1) + frac * (Mref_V%vsv_ref(i)-Mref_V%vsv_ref(i-1))
    vsh = Mref_V%vsh_ref(i-1) + frac * (Mref_V%vsh_ref(i)-Mref_V%vsh_ref(i-1))
    eta = Mref_V%eta_ref(i-1) + frac * (Mref_V%eta_ref(i)-Mref_V%eta_ref(i-1))
    Qkappa = Mref_V%Qkappa_ref(i-1) + frac * (Mref_V%Qkappa_ref(i)-Mref_V%Qkappa_ref(i-1))
    Qmu = Mref_V%Qmu_ref(i-1) + frac * (Mref_V%Qmu_ref(i)-Mref_V%Qmu_ref(i-1))

  endif

! make sure Vs is zero in the outer core even if roundoff errors on depth
! also set fictitious attenuation to a very high value (attenuation is not used in the fluid)
  if (iregion_code == IREGION_OUTER_CORE) then
    vsv = 0.d0
    vsh = 0.d0
    Qkappa = 3000.d0
    Qmu = 3000.d0
  endif

! non-dimensionalize
! time scaling (s^{-1}) is done with scaleval
  scaleval=dsqrt(PI*GRAV*RHOAV)
  rho=rho/RHOAV
  vpv=vpv/(R_EARTH*scaleval)
  vph=vph/(R_EARTH*scaleval)
  vsv=vsv/(R_EARTH*scaleval)
  vsh=vsh/(R_EARTH*scaleval)

  end subroutine model_ref

!-------------------

  subroutine define_model_ref(Mref_V)

  implicit none
  include "constants.h"

! model_ref_variables
  type model_ref_variables
    sequence
      double precision, dimension(NR_REF) :: radius_ref
      double precision, dimension(NR_REF) :: density_ref
      double precision, dimension(NR_REF) :: vpv_ref
      double precision, dimension(NR_REF) :: vph_ref
      double precision, dimension(NR_REF) :: vsv_ref
      double precision, dimension(NR_REF) :: vsh_ref
      double precision, dimension(NR_REF) :: eta_ref
      double precision, dimension(NR_REF) :: Qkappa_ref
      double precision, dimension(NR_REF) :: Qmu_ref
  end type model_ref_variables

  type (model_ref_variables) Mref_V
! model_ref_variables


! define the 1D REF model of Kustowski et al. (2007)

 Mref_V%radius_ref( 1 : 30 ) = (/ &
 0.000000000000000E+000, &
 6824.00000000000, &
 13648.0000000000, &
 20472.0000000000, &
 27296.0000000000, &
 34120.0000000000, &
 40944.0000000000, &
 47768.0000000000, &
 54592.0000000000, &
 61416.0000000000, &
 68240.0000000000, &
 75064.0000000000, &
 81888.0000000000, &
 88712.0000000000, &
 95536.0000000000, &
 102360.000000000, &
 109184.000000000, &
 116007.000000000, &
 122831.000000000, &
 129655.000000000, &
 136479.000000000, &
 143303.000000000, &
 150127.000000000, &
 156951.000000000, &
 163775.000000000, &
 170599.000000000, &
 177423.000000000, &
 184247.000000000, &
 191071.000000000, &
 197895.000000000 /)

 Mref_V%radius_ref( 31 : 60 ) = (/ &
 204719.000000000, &
 211543.000000000, &
 218367.000000000, &
 225191.000000000, &
 232015.000000000, &
 238839.000000000, &
 245663.000000000, &
 252487.000000000, &
 259311.000000000, &
 266135.000000000, &
 272959.000000000, &
 279783.000000000, &
 286607.000000000, &
 293431.000000000, &
 300255.000000000, &
 307079.000000000, &
 313903.000000000, &
 320727.000000000, &
 327551.000000000, &
 334375.000000000, &
 341199.000000000, &
 348022.000000000, &
 354846.000000000, &
 361670.000000000, &
 368494.000000000, &
 375318.000000000, &
 382142.000000000, &
 388966.000000000, &
 395790.000000000, &
 402614.000000000 /)

 Mref_V%radius_ref( 61 : 90 ) = (/ &
 409438.000000000, &
 416262.000000000, &
 423086.000000000, &
 429910.000000000, &
 436734.000000000, &
 443558.000000000, &
 450382.000000000, &
 457206.000000000, &
 464030.000000000, &
 470854.000000000, &
 477678.000000000, &
 484502.000000000, &
 491326.000000000, &
 498150.000000000, &
 504974.000000000, &
 511798.000000000, &
 518622.000000000, &
 525446.000000000, &
 532270.000000000, &
 539094.000000000, &
 545918.000000000, &
 552742.000000000, &
 559566.000000000, &
 566390.000000000, &
 573214.000000000, &
 580037.000000000, &
 586861.000000000, &
 593685.000000000, &
 600509.000000000, &
 607333.000000000 /)

 Mref_V%radius_ref( 91 : 120 ) = (/ &
 614157.000000000, &
 620981.000000000, &
 627805.000000000, &
 634629.000000000, &
 641453.000000000, &
 648277.000000000, &
 655101.000000000, &
 661925.000000000, &
 668749.000000000, &
 675573.000000000, &
 682397.000000000, &
 689221.000000000, &
 696045.000000000, &
 702869.000000000, &
 709693.000000000, &
 716517.000000000, &
 723341.000000000, &
 730165.000000000, &
 736989.000000000, &
 743813.000000000, &
 750637.000000000, &
 757461.000000000, &
 764285.000000000, &
 771109.000000000, &
 777933.000000000, &
 784757.000000000, &
 791581.000000000, &
 798405.000000000, &
 805229.000000000, &
 812052.000000000 /)

 Mref_V%radius_ref( 121 : 150 ) = (/ &
 818876.000000000, &
 825700.000000000, &
 832524.000000000, &
 839348.000000000, &
 846172.000000000, &
 852996.000000000, &
 859820.000000000, &
 866644.000000000, &
 873468.000000000, &
 880292.000000000, &
 887116.000000000, &
 893940.000000000, &
 900764.000000000, &
 907588.000000000, &
 914412.000000000, &
 921236.000000000, &
 928060.000000000, &
 934884.000000000, &
 941708.000000000, &
 948532.000000000, &
 955356.000000000, &
 962180.000000000, &
 969004.000000000, &
 975828.000000000, &
 982652.000000000, &
 989476.000000000, &
 996300.000000000, &
 1003124.00000000, &
 1009948.00000000, &
 1016772.00000000 /)

 Mref_V%radius_ref( 151 : 180 ) = (/ &
 1023596.00000000, &
 1030420.00000000, &
 1037244.00000000, &
 1044067.00000000, &
 1050891.00000000, &
 1057715.00000000, &
 1064539.00000000, &
 1071363.00000000, &
 1078187.00000000, &
 1085011.00000000, &
 1091835.00000000, &
 1098659.00000000, &
 1105483.00000000, &
 1112307.00000000, &
 1119131.00000000, &
 1125955.00000000, &
 1132779.00000000, &
 1139603.00000000, &
 1146427.00000000, &
 1153251.00000000, &
 1160075.00000000, &
 1166899.00000000, &
 1173723.00000000, &
 1180547.00000000, &
 1187371.00000000, &
 1194195.00000000, &
 1201019.00000000, &
 1207843.00000000, &
 1214667.00000000, &
 1221491.00000000 /)

 Mref_V%radius_ref( 181 : 210 ) = (/ &
 1221491.00000000, &
 1234250.00000000, &
 1247010.00000000, &
 1259770.00000000, &
 1272530.00000000, &
 1285289.00000000, &
 1298049.00000000, &
 1310809.00000000, &
 1323568.00000000, &
 1336328.00000000, &
 1349088.00000000, &
 1361847.00000000, &
 1374607.00000000, &
 1387367.00000000, &
 1400127.00000000, &
 1412886.00000000, &
 1425646.00000000, &
 1438406.00000000, &
 1451165.00000000, &
 1463925.00000000, &
 1476685.00000000, &
 1489444.00000000, &
 1502204.00000000, &
 1514964.00000000, &
 1527724.00000000, &
 1540483.00000000, &
 1553243.00000000, &
 1566003.00000000, &
 1578762.00000000, &
 1591522.00000000 /)

 Mref_V%radius_ref( 211 : 240 ) = (/ &
 1604282.00000000, &
 1617041.00000000, &
 1629801.00000000, &
 1642561.00000000, &
 1655321.00000000, &
 1668080.00000000, &
 1680840.00000000, &
 1693600.00000000, &
 1706359.00000000, &
 1719119.00000000, &
 1731879.00000000, &
 1744638.00000000, &
 1757398.00000000, &
 1770158.00000000, &
 1782918.00000000, &
 1795677.00000000, &
 1808437.00000000, &
 1821197.00000000, &
 1833956.00000000, &
 1846716.00000000, &
 1859476.00000000, &
 1872235.00000000, &
 1884995.00000000, &
 1897755.00000000, &
 1910515.00000000, &
 1923274.00000000, &
 1936034.00000000, &
 1948794.00000000, &
 1961553.00000000, &
 1974313.00000000 /)

 Mref_V%radius_ref( 241 : 270 ) = (/ &
 1987073.00000000, &
 1999832.00000000, &
 2012592.00000000, &
 2025352.00000000, &
 2038112.00000000, &
 2050871.00000000, &
 2063631.00000000, &
 2076391.00000000, &
 2089150.00000000, &
 2101910.00000000, &
 2114670.00000000, &
 2127429.00000000, &
 2140189.00000000, &
 2152949.00000000, &
 2165709.00000000, &
 2178468.00000000, &
 2191228.00000000, &
 2203988.00000000, &
 2216747.00000000, &
 2229507.00000000, &
 2242267.00000000, &
 2255026.00000000, &
 2267786.00000000, &
 2280546.00000000, &
 2293306.00000000, &
 2306065.00000000, &
 2318825.00000000, &
 2331585.00000000, &
 2344344.00000000, &
 2357104.00000000 /)

 Mref_V%radius_ref( 271 : 300 ) = (/ &
 2369864.00000000, &
 2382623.00000000, &
 2395383.00000000, &
 2408143.00000000, &
 2420903.00000000, &
 2433662.00000000, &
 2446422.00000000, &
 2459182.00000000, &
 2471941.00000000, &
 2484701.00000000, &
 2497461.00000000, &
 2510220.00000000, &
 2522980.00000000, &
 2535740.00000000, &
 2548500.00000000, &
 2561259.00000000, &
 2574019.00000000, &
 2586779.00000000, &
 2599538.00000000, &
 2612298.00000000, &
 2625058.00000000, &
 2637818.00000000, &
 2650577.00000000, &
 2663337.00000000, &
 2676097.00000000, &
 2688856.00000000, &
 2701616.00000000, &
 2714376.00000000, &
 2727135.00000000, &
 2739895.00000000 /)

 Mref_V%radius_ref( 301 : 330 ) = (/ &
 2752655.00000000, &
 2765415.00000000, &
 2778174.00000000, &
 2790934.00000000, &
 2803694.00000000, &
 2816453.00000000, &
 2829213.00000000, &
 2841973.00000000, &
 2854732.00000000, &
 2867492.00000000, &
 2880252.00000000, &
 2893012.00000000, &
 2905771.00000000, &
 2918531.00000000, &
 2931291.00000000, &
 2944050.00000000, &
 2956810.00000000, &
 2969570.00000000, &
 2982329.00000000, &
 2995089.00000000, &
 3007849.00000000, &
 3020609.00000000, &
 3033368.00000000, &
 3046128.00000000, &
 3058888.00000000, &
 3071647.00000000, &
 3084407.00000000, &
 3097167.00000000, &
 3109926.00000000, &
 3122686.00000000 /)

 Mref_V%radius_ref( 331 : 360 ) = (/ &
 3135446.00000000, &
 3148206.00000000, &
 3160965.00000000, &
 3173725.00000000, &
 3186485.00000000, &
 3199244.00000000, &
 3212004.00000000, &
 3224764.00000000, &
 3237523.00000000, &
 3250283.00000000, &
 3263043.00000000, &
 3275803.00000000, &
 3288562.00000000, &
 3301322.00000000, &
 3314082.00000000, &
 3326841.00000000, &
 3339601.00000000, &
 3352361.00000000, &
 3365120.00000000, &
 3377880.00000000, &
 3390640.00000000, &
 3403400.00000000, &
 3416159.00000000, &
 3428919.00000000, &
 3441679.00000000, &
 3454438.00000000, &
 3467198.00000000, &
 3479958.00000000, &
 3479958.00000000, &
 3489335.00000000 /)

 Mref_V%radius_ref( 361 : 390 ) = (/ &
 3498713.00000000, &
 3508091.00000000, &
 3517468.00000000, &
 3526846.00000000, &
 3536224.00000000, &
 3545601.00000000, &
 3554979.00000000, &
 3564357.00000000, &
 3573734.00000000, &
 3583112.00000000, &
 3592489.00000000, &
 3601867.00000000, &
 3611245.00000000, &
 3620622.00000000, &
 3630000.00000000, &
 3630000.00000000, &
 3639471.00000000, &
 3648942.00000000, &
 3658413.00000000, &
 3667885.00000000, &
 3677356.00000000, &
 3686827.00000000, &
 3696298.00000000, &
 3705769.00000000, &
 3715240.00000000, &
 3724712.00000000, &
 3734183.00000000, &
 3743654.00000000, &
 3753125.00000000, &
 3762596.00000000 /)

 Mref_V%radius_ref( 391 : 420 ) = (/ &
 3772067.00000000, &
 3781538.00000000, &
 3791010.00000000, &
 3800481.00000000, &
 3809952.00000000, &
 3819423.00000000, &
 3828894.00000000, &
 3838365.00000000, &
 3847837.00000000, &
 3857308.00000000, &
 3866779.00000000, &
 3876250.00000000, &
 3885721.00000000, &
 3895192.00000000, &
 3904663.00000000, &
 3914135.00000000, &
 3923606.00000000, &
 3933077.00000000, &
 3942548.00000000, &
 3952019.00000000, &
 3961490.00000000, &
 3970962.00000000, &
 3980433.00000000, &
 3989904.00000000, &
 3999375.00000000, &
 4008846.00000000, &
 4018317.00000000, &
 4027788.00000000, &
 4037260.00000000, &
 4046731.00000000 /)

 Mref_V%radius_ref( 421 : 450 ) = (/ &
 4056202.00000000, &
 4065673.00000000, &
 4075144.00000000, &
 4084615.00000000, &
 4094087.00000000, &
 4103558.00000000, &
 4113029.00000000, &
 4122500.00000000, &
 4131971.00000000, &
 4141442.00000000, &
 4150913.00000000, &
 4160385.00000000, &
 4169856.00000000, &
 4179327.00000000, &
 4188798.00000000, &
 4198269.00000000, &
 4207740.00000000, &
 4217212.00000000, &
 4226683.00000000, &
 4236154.00000000, &
 4245625.00000000, &
 4255096.00000000, &
 4264567.00000000, &
 4274038.00000000, &
 4283510.00000000, &
 4292981.00000000, &
 4302452.00000000, &
 4311923.00000000, &
 4321394.00000000, &
 4330865.00000000 /)

 Mref_V%radius_ref( 451 : 480 ) = (/ &
 4340337.00000000, &
 4349808.00000000, &
 4359279.00000000, &
 4368750.00000000, &
 4378221.00000000, &
 4387692.00000000, &
 4397163.00000000, &
 4406635.00000000, &
 4416106.00000000, &
 4425577.00000000, &
 4435048.00000000, &
 4444519.00000000, &
 4453990.00000000, &
 4463462.00000000, &
 4472933.00000000, &
 4482404.00000000, &
 4491875.00000000, &
 4501346.00000000, &
 4510817.00000000, &
 4520288.00000000, &
 4529760.00000000, &
 4539231.00000000, &
 4548702.00000000, &
 4558173.00000000, &
 4567644.00000000, &
 4577115.00000000, &
 4586587.00000000, &
 4596058.00000000, &
 4605529.00000000, &
 4615000.00000000 /)

 Mref_V%radius_ref( 481 : 510 ) = (/ &
 4624471.00000000, &
 4633942.00000000, &
 4643413.00000000, &
 4652885.00000000, &
 4662356.00000000, &
 4671827.00000000, &
 4681298.00000000, &
 4690769.00000000, &
 4700240.00000000, &
 4709712.00000000, &
 4719183.00000000, &
 4728654.00000000, &
 4738125.00000000, &
 4747596.00000000, &
 4757067.00000000, &
 4766538.00000000, &
 4776010.00000000, &
 4785481.00000000, &
 4794952.00000000, &
 4804423.00000000, &
 4813894.00000000, &
 4823365.00000000, &
 4832837.00000000, &
 4842308.00000000, &
 4851779.00000000, &
 4861250.00000000, &
 4870721.00000000, &
 4880192.00000000, &
 4889663.00000000, &
 4899135.00000000 /)

 Mref_V%radius_ref( 511 : 540 ) = (/ &
 4908606.00000000, &
 4918077.00000000, &
 4927548.00000000, &
 4937019.00000000, &
 4946490.00000000, &
 4955962.00000000, &
 4965433.00000000, &
 4974904.00000000, &
 4984375.00000000, &
 4993846.00000000, &
 5003317.00000000, &
 5012788.00000000, &
 5022260.00000000, &
 5031731.00000000, &
 5041202.00000000, &
 5050673.00000000, &
 5060144.00000000, &
 5069615.00000000, &
 5079087.00000000, &
 5088558.00000000, &
 5098029.00000000, &
 5107500.00000000, &
 5116971.00000000, &
 5126442.00000000, &
 5135913.00000000, &
 5145385.00000000, &
 5154856.00000000, &
 5164327.00000000, &
 5173798.00000000, &
 5183269.00000000 /)

 Mref_V%radius_ref( 541 : 570 ) = (/ &
 5192740.00000000, &
 5202212.00000000, &
 5211683.00000000, &
 5221154.00000000, &
 5230625.00000000, &
 5240096.00000000, &
 5249567.00000000, &
 5259038.00000000, &
 5268510.00000000, &
 5277981.00000000, &
 5287452.00000000, &
 5296923.00000000, &
 5306394.00000000, &
 5315865.00000000, &
 5325337.00000000, &
 5334808.00000000, &
 5344279.00000000, &
 5353750.00000000, &
 5363221.00000000, &
 5372692.00000000, &
 5382163.00000000, &
 5391635.00000000, &
 5401106.00000000, &
 5410577.00000000, &
 5420048.00000000, &
 5429519.00000000, &
 5438990.00000000, &
 5448462.00000000, &
 5457933.00000000, &
 5467404.00000000 /)

 Mref_V%radius_ref( 571 : 600 ) = (/ &
 5476875.00000000, &
 5486346.00000000, &
 5495817.00000000, &
 5505288.00000000, &
 5514760.00000000, &
 5524231.00000000, &
 5533702.00000000, &
 5543173.00000000, &
 5552644.00000000, &
 5562115.00000000, &
 5571587.00000000, &
 5581058.00000000, &
 5590529.00000000, &
 5600000.00000000, &
 5600000.00000000, &
 5607562.00000000, &
 5615125.00000000, &
 5622688.00000000, &
 5630250.00000000, &
 5637812.00000000, &
 5645375.00000000, &
 5652938.00000000, &
 5660500.00000000, &
 5668062.00000000, &
 5675625.00000000, &
 5683188.00000000, &
 5690750.00000000, &
 5698312.00000000, &
 5705875.00000000, &
 5713438.00000000 /)

 Mref_V%radius_ref( 601 : 630 ) = (/ &
 5721000.00000000, &
 5721000.00000000, &
 5724572.00000000, &
 5728143.00000000, &
 5731714.00000000, &
 5735286.00000000, &
 5738857.00000000, &
 5742428.00000000, &
 5746000.00000000, &
 5749572.00000000, &
 5753143.00000000, &
 5756714.00000000, &
 5760286.00000000, &
 5763857.00000000, &
 5767428.00000000, &
 5771000.00000000, &
 5771000.00000000, &
 5777334.00000000, &
 5783666.00000000, &
 5790000.00000000, &
 5796334.00000000, &
 5802666.00000000, &
 5809000.00000000, &
 5815334.00000000, &
 5821666.00000000, &
 5828000.00000000, &
 5834334.00000000, &
 5840666.00000000, &
 5847000.00000000, &
 5853334.00000000 /)

 Mref_V%radius_ref( 631 : 660 ) = (/ &
 5859666.00000000, &
 5866000.00000000, &
 5872334.00000000, &
 5878666.00000000, &
 5885000.00000000, &
 5891334.00000000, &
 5897666.00000000, &
 5904000.00000000, &
 5910334.00000000, &
 5916666.00000000, &
 5923000.00000000, &
 5929334.00000000, &
 5935666.00000000, &
 5942000.00000000, &
 5948334.00000000, &
 5954666.00000000, &
 5961000.00000000, &
 5961000.00000000, &
 5967334.00000000, &
 5973666.00000000, &
 5980000.00000000, &
 5986334.00000000, &
 5992666.00000000, &
 5999000.00000000, &
 6005334.00000000, &
 6011666.00000000, &
 6018000.00000000, &
 6024334.00000000, &
 6030666.00000000, &
 6037000.00000000 /)

 Mref_V%radius_ref( 661 : 690 ) = (/ &
 6043334.00000000, &
 6049666.00000000, &
 6056000.00000000, &
 6062334.00000000, &
 6068666.00000000, &
 6075000.00000000, &
 6081334.00000000, &
 6087666.00000000, &
 6094000.00000000, &
 6100334.00000000, &
 6106666.00000000, &
 6113000.00000000, &
 6119334.00000000, &
 6125666.00000000, &
 6132000.00000000, &
 6138334.00000000, &
 6144666.00000000, &
 6151000.00000000, &
 6151000.00000000, &
 6157087.00000000, &
 6163174.00000000, &
 6169261.00000000, &
 6175348.00000000, &
 6181435.00000000, &
 6187522.00000000, &
 6193609.00000000, &
 6199696.00000000, &
 6205783.00000000, &
 6211870.00000000, &
 6217957.00000000 /)

 Mref_V%radius_ref( 691 : 720 ) = (/ &
 6224043.00000000, &
 6230130.00000000, &
 6236217.00000000, &
 6242304.00000000, &
 6248391.00000000, &
 6254478.00000000, &
 6260565.00000000, &
 6266652.00000000, &
 6272739.00000000, &
 6278826.00000000, &
 6284913.00000000, &
 6291000.00000000, &
 6291000.00000000, &
 6294971.00000000, &
 6298943.00000000, &
 6302914.00000000, &
 6306886.00000000, &
 6310857.00000000, &
 6314829.00000000, &
 6318800.00000000, &
 6322771.00000000, &
 6326743.00000000, &
 6330714.00000000, &
 6334686.00000000, &
 6338657.00000000, &
 6342629.00000000, &
 6346600.00000000, &
 6346600.00000000, &
 6347540.00000000, &
 6348480.00000000 /)

 Mref_V%radius_ref( 721 : 750 ) = (/ &
 6349420.00000000, &
 6350360.00000000, &
 6351300.00000000, &
 6352240.00000000, &
 6353180.00000000, &
 6354120.00000000, &
 6355060.00000000, &
 6356000.00000000, &
 6356000.00000000, &
 6357200.00000000, &
 6358400.00000000, &
 6359600.00000000, &
 6360800.00000000, &
 6362000.00000000, &
 6363200.00000000, &
 6364400.00000000, &
 6365600.00000000, &
 6366800.00000000, &
 6368000.00000000, &
 6368000.00000000, &
 6368300.00000000, &
 6368600.00000000, &
 6368900.00000000, &
 6369200.00000000, &
 6369500.00000000, &
 6369800.00000000, &
 6370100.00000000, &
 6370400.00000000, &
 6370700.00000000, &
 6371000.00000000 /)

 Mref_V%density_ref( 1 : 30 ) = (/ &
 13088.4800000000, &
 13088.4700000000, &
 13088.4400000000, &
 13088.3900000000, &
 13088.3200000000, &
 13088.2200000000, &
 13088.1100000000, &
 13087.9800000000, &
 13087.8300000000, &
 13087.6600000000, &
 13087.4600000000, &
 13087.2500000000, &
 13087.0200000000, &
 13086.7600000000, &
 13086.4900000000, &
 13086.2000000000, &
 13085.8800000000, &
 13085.5500000000, &
 13085.1900000000, &
 13084.8200000000, &
 13084.4200000000, &
 13084.0100000000, &
 13083.5700000000, &
 13083.1100000000, &
 13082.6400000000, &
 13082.1400000000, &
 13081.6200000000, &
 13081.0900000000, &
 13080.5300000000, &
 13079.9500000000 /)

 Mref_V%density_ref( 31 : 60 ) = (/ &
 13079.3500000000, &
 13078.7300000000, &
 13078.0900000000, &
 13077.4400000000, &
 13076.7600000000, &
 13076.0600000000, &
 13075.3400000000, &
 13074.6000000000, &
 13073.8400000000, &
 13073.0600000000, &
 13072.2500000000, &
 13071.4300000000, &
 13070.5900000000, &
 13069.7300000000, &
 13068.8500000000, &
 13067.9500000000, &
 13067.0200000000, &
 13066.0800000000, &
 13065.1200000000, &
 13064.1300000000, &
 13063.1300000000, &
 13062.1000000000, &
 13061.0600000000, &
 13060.0000000000, &
 13058.9100000000, &
 13057.8100000000, &
 13056.6800000000, &
 13055.5300000000, &
 13054.3700000000, &
 13053.1800000000 /)

 Mref_V%density_ref( 61 : 90 ) = (/ &
 13051.9800000000, &
 13050.7500000000, &
 13049.5000000000, &
 13048.2300000000, &
 13046.9500000000, &
 13045.6400000000, &
 13044.3100000000, &
 13042.9600000000, &
 13041.5900000000, &
 13040.2000000000, &
 13038.7900000000, &
 13037.3600000000, &
 13035.9100000000, &
 13034.4400000000, &
 13032.9500000000, &
 13031.4400000000, &
 13029.9100000000, &
 13028.3600000000, &
 13026.7900000000, &
 13025.2000000000, &
 13023.5800000000, &
 13021.9500000000, &
 13020.3000000000, &
 13018.6300000000, &
 13016.9300000000, &
 13015.2200000000, &
 13013.4900000000, &
 13011.7300000000, &
 13009.9600000000, &
 13008.1600000000 /)

 Mref_V%density_ref( 91 : 120 ) = (/ &
 13006.3500000000, &
 13004.5100000000, &
 13002.6600000000, &
 13000.7800000000, &
 12998.8800000000, &
 12996.9700000000, &
 12995.0300000000, &
 12993.0700000000, &
 12991.1000000000, &
 12989.1000000000, &
 12987.0800000000, &
 12985.0400000000, &
 12982.9900000000, &
 12980.9100000000, &
 12978.8100000000, &
 12976.6900000000, &
 12974.5500000000, &
 12972.3900000000, &
 12970.2100000000, &
 12968.0100000000, &
 12965.7900000000, &
 12963.5500000000, &
 12961.2900000000, &
 12959.0100000000, &
 12956.7000000000, &
 12954.3800000000, &
 12952.0400000000, &
 12949.6800000000, &
 12947.2900000000, &
 12944.8900000000 /)

 Mref_V%density_ref( 121 : 150 ) = (/ &
 12942.4700000000, &
 12940.0200000000, &
 12937.5600000000, &
 12935.0800000000, &
 12932.5700000000, &
 12930.0500000000, &
 12927.5000000000, &
 12924.9400000000, &
 12922.3500000000, &
 12919.7500000000, &
 12917.1200000000, &
 12914.4700000000, &
 12911.8100000000, &
 12909.1200000000, &
 12906.4100000000, &
 12903.6800000000, &
 12900.9400000000, &
 12898.1700000000, &
 12895.3800000000, &
 12892.5700000000, &
 12889.7400000000, &
 12886.8900000000, &
 12884.0200000000, &
 12881.1300000000, &
 12878.2200000000, &
 12875.2900000000, &
 12872.3400000000, &
 12869.3700000000, &
 12866.3800000000, &
 12863.3700000000 /)

 Mref_V%density_ref( 151 : 180 ) = (/ &
 12860.3400000000, &
 12857.2900000000, &
 12854.2100000000, &
 12851.1200000000, &
 12848.0100000000, &
 12844.8800000000, &
 12841.7200000000, &
 12838.5500000000, &
 12835.3500000000, &
 12832.1400000000, &
 12828.9100000000, &
 12825.6500000000, &
 12822.3800000000, &
 12819.0800000000, &
 12815.7600000000, &
 12812.4300000000, &
 12809.0700000000, &
 12805.7000000000, &
 12802.3000000000, &
 12798.8800000000, &
 12795.4400000000, &
 12791.9900000000, &
 12788.5100000000, &
 12785.0100000000, &
 12781.4900000000, &
 12777.9500000000, &
 12774.4000000000, &
 12770.8200000000, &
 12767.2200000000, &
 12763.6000000000 /)

 Mref_V%density_ref( 181 : 210 ) = (/ &
 12166.3500000000, &
 12159.7700000000, &
 12153.1400000000, &
 12146.4500000000, &
 12139.7100000000, &
 12132.9100000000, &
 12126.0500000000, &
 12119.1400000000, &
 12112.1800000000, &
 12105.1500000000, &
 12098.0700000000, &
 12090.9300000000, &
 12083.7300000000, &
 12076.4800000000, &
 12069.1700000000, &
 12061.8000000000, &
 12054.3700000000, &
 12046.8800000000, &
 12039.3300000000, &
 12031.7200000000, &
 12024.0500000000, &
 12016.3300000000, &
 12008.5400000000, &
 12000.6900000000, &
 11992.7800000000, &
 11984.8100000000, &
 11976.7800000000, &
 11968.6800000000, &
 11960.5300000000, &
 11952.3100000000 /)

 Mref_V%density_ref( 211 : 240 ) = (/ &
 11944.0300000000, &
 11935.6900000000, &
 11927.2800000000, &
 11918.8100000000, &
 11910.2800000000, &
 11901.6800000000, &
 11893.0200000000, &
 11884.3000000000, &
 11875.5100000000, &
 11866.6600000000, &
 11857.7400000000, &
 11848.7500000000, &
 11839.7000000000, &
 11830.5800000000, &
 11821.4000000000, &
 11812.1500000000, &
 11802.8400000000, &
 11793.4500000000, &
 11784.0100000000, &
 11774.4900000000, &
 11764.9000000000, &
 11755.2500000000, &
 11745.5300000000, &
 11735.7400000000, &
 11725.8800000000, &
 11715.9500000000, &
 11705.9500000000, &
 11695.8900000000, &
 11685.7500000000, &
 11675.5400000000 /)

 Mref_V%density_ref( 241 : 270 ) = (/ &
 11665.2600000000, &
 11654.9200000000, &
 11644.5000000000, &
 11634.0100000000, &
 11623.4400000000, &
 11612.8100000000, &
 11602.1000000000, &
 11591.3200000000, &
 11580.4700000000, &
 11569.5500000000, &
 11558.5500000000, &
 11547.4800000000, &
 11536.3400000000, &
 11525.1200000000, &
 11513.8300000000, &
 11502.4600000000, &
 11491.0200000000, &
 11479.5100000000, &
 11467.9100000000, &
 11456.2500000000, &
 11444.5000000000, &
 11432.6900000000, &
 11420.7900000000, &
 11408.8200000000, &
 11396.7700000000, &
 11384.6400000000, &
 11372.4400000000, &
 11360.1600000000, &
 11347.8000000000, &
 11335.3700000000 /)

 Mref_V%density_ref( 271 : 300 ) = (/ &
 11322.8500000000, &
 11310.2600000000, &
 11297.5800000000, &
 11284.8300000000, &
 11272.0000000000, &
 11259.0900000000, &
 11246.1000000000, &
 11233.0300000000, &
 11219.8700000000, &
 11206.6400000000, &
 11193.3300000000, &
 11179.9300000000, &
 11166.4500000000, &
 11152.8900000000, &
 11139.2500000000, &
 11125.5300000000, &
 11111.7200000000, &
 11097.8300000000, &
 11083.8600000000, &
 11069.8000000000, &
 11055.6600000000, &
 11041.4400000000, &
 11027.1300000000, &
 11012.7400000000, &
 10998.2600000000, &
 10983.7000000000, &
 10969.0500000000, &
 10954.3200000000, &
 10939.5000000000, &
 10924.5900000000 /)

 Mref_V%density_ref( 301 : 330 ) = (/ &
 10909.6000000000, &
 10894.5200000000, &
 10879.3500000000, &
 10864.1000000000, &
 10848.7600000000, &
 10833.3300000000, &
 10817.8100000000, &
 10802.2100000000, &
 10786.5100000000, &
 10770.7300000000, &
 10754.8600000000, &
 10738.9000000000, &
 10722.8500000000, &
 10706.7100000000, &
 10690.4800000000, &
 10674.1600000000, &
 10657.7500000000, &
 10641.2400000000, &
 10624.6500000000, &
 10607.9600000000, &
 10591.1900000000, &
 10574.3200000000, &
 10557.3600000000, &
 10540.3000000000, &
 10523.1600000000, &
 10505.9200000000, &
 10488.5800000000, &
 10471.1500000000, &
 10453.6300000000, &
 10436.0200000000 /)

 Mref_V%density_ref( 331 : 360 ) = (/ &
 10418.3100000000, &
 10400.5100000000, &
 10382.6100000000, &
 10364.6100000000, &
 10346.5200000000, &
 10328.3400000000, &
 10310.0500000000, &
 10291.6800000000, &
 10273.2000000000, &
 10254.6300000000, &
 10235.9600000000, &
 10217.2000000000, &
 10198.3300000000, &
 10179.3700000000, &
 10160.3100000000, &
 10141.1500000000, &
 10121.9000000000, &
 10102.5400000000, &
 10083.0900000000, &
 10063.5300000000, &
 10043.8800000000, &
 10024.1200000000, &
 10004.2700000000, &
 9984.32000000000, &
 9964.26000000000, &
 9944.10000000000, &
 9923.84000000000, &
 9903.48000000000, &
 5566.45000000000, &
 5561.75000000000 /)

 Mref_V%density_ref( 361 : 390 ) = (/ &
 5557.05000000000, &
 5552.36000000000, &
 5547.66000000000, &
 5542.97000000000, &
 5538.28000000000, &
 5533.59000000000, &
 5528.90000000000, &
 5524.21000000000, &
 5519.53000000000, &
 5514.85000000000, &
 5510.16000000000, &
 5505.48000000000, &
 5500.81000000000, &
 5496.13000000000, &
 5491.45000000000, &
 5491.45000000000, &
 5486.73000000000, &
 5482.01000000000, &
 5477.29000000000, &
 5472.57000000000, &
 5467.85000000000, &
 5463.13000000000, &
 5458.42000000000, &
 5453.70000000000, &
 5448.99000000000, &
 5444.27000000000, &
 5439.56000000000, &
 5434.85000000000, &
 5430.13000000000, &
 5425.42000000000 /)

 Mref_V%density_ref( 391 : 420 ) = (/ &
 5420.71000000000, &
 5416.00000000000, &
 5411.29000000000, &
 5406.57000000000, &
 5401.86000000000, &
 5397.15000000000, &
 5392.44000000000, &
 5387.73000000000, &
 5383.02000000000, &
 5378.30000000000, &
 5373.59000000000, &
 5368.88000000000, &
 5364.17000000000, &
 5359.45000000000, &
 5354.74000000000, &
 5350.02000000000, &
 5345.31000000000, &
 5340.59000000000, &
 5335.87000000000, &
 5331.16000000000, &
 5326.44000000000, &
 5321.72000000000, &
 5317.00000000000, &
 5312.28000000000, &
 5307.55000000000, &
 5302.83000000000, &
 5298.10000000000, &
 5293.38000000000, &
 5288.65000000000, &
 5283.92000000000 /)

 Mref_V%density_ref( 421 : 450 ) = (/ &
 5279.19000000000, &
 5274.45000000000, &
 5269.72000000000, &
 5264.98000000000, &
 5260.25000000000, &
 5255.51000000000, &
 5250.77000000000, &
 5246.02000000000, &
 5241.28000000000, &
 5236.53000000000, &
 5231.78000000000, &
 5227.03000000000, &
 5222.27000000000, &
 5217.52000000000, &
 5212.76000000000, &
 5208.00000000000, &
 5203.23000000000, &
 5198.47000000000, &
 5193.70000000000, &
 5188.93000000000, &
 5184.15000000000, &
 5179.38000000000, &
 5174.60000000000, &
 5169.82000000000, &
 5165.03000000000, &
 5160.24000000000, &
 5155.45000000000, &
 5150.65000000000, &
 5145.86000000000, &
 5141.06000000000 /)

 Mref_V%density_ref( 451 : 480 ) = (/ &
 5136.25000000000, &
 5131.44000000000, &
 5126.63000000000, &
 5121.82000000000, &
 5117.00000000000, &
 5112.18000000000, &
 5107.35000000000, &
 5102.52000000000, &
 5097.69000000000, &
 5092.85000000000, &
 5088.01000000000, &
 5083.16000000000, &
 5078.31000000000, &
 5073.46000000000, &
 5068.60000000000, &
 5063.74000000000, &
 5058.87000000000, &
 5054.00000000000, &
 5049.13000000000, &
 5044.25000000000, &
 5039.36000000000, &
 5034.47000000000, &
 5029.58000000000, &
 5024.68000000000, &
 5019.78000000000, &
 5014.87000000000, &
 5009.96000000000, &
 5005.04000000000, &
 5000.12000000000, &
 4995.19000000000 /)

 Mref_V%density_ref( 481 : 510 ) = (/ &
 4990.26000000000, &
 4985.32000000000, &
 4980.38000000000, &
 4975.43000000000, &
 4970.47000000000, &
 4965.51000000000, &
 4960.55000000000, &
 4955.58000000000, &
 4950.60000000000, &
 4945.62000000000, &
 4940.63000000000, &
 4935.64000000000, &
 4930.64000000000, &
 4925.63000000000, &
 4920.62000000000, &
 4915.60000000000, &
 4910.58000000000, &
 4905.55000000000, &
 4900.51000000000, &
 4895.47000000000, &
 4890.42000000000, &
 4885.37000000000, &
 4880.31000000000, &
 4875.24000000000, &
 4870.16000000000, &
 4865.08000000000, &
 4859.99000000000, &
 4854.90000000000, &
 4849.80000000000, &
 4844.69000000000 /)

 Mref_V%density_ref( 511 : 540 ) = (/ &
 4839.57000000000, &
 4834.45000000000, &
 4829.32000000000, &
 4824.18000000000, &
 4819.04000000000, &
 4813.88000000000, &
 4808.73000000000, &
 4803.56000000000, &
 4798.39000000000, &
 4793.20000000000, &
 4788.02000000000, &
 4782.82000000000, &
 4777.61000000000, &
 4772.40000000000, &
 4767.18000000000, &
 4761.95000000000, &
 4756.72000000000, &
 4751.47000000000, &
 4746.22000000000, &
 4740.95000000000, &
 4735.68000000000, &
 4730.40000000000, &
 4725.10000000000, &
 4719.80000000000, &
 4714.48000000000, &
 4709.15000000000, &
 4703.81000000000, &
 4698.44000000000, &
 4693.08000000000, &
 4687.69000000000 /)

 Mref_V%density_ref( 541 : 570 ) = (/ &
 4682.29000000000, &
 4676.87000000000, &
 4671.44000000000, &
 4665.99000000000, &
 4660.52000000000, &
 4655.03000000000, &
 4649.52000000000, &
 4644.00000000000, &
 4638.46000000000, &
 4632.89000000000, &
 4627.31000000000, &
 4621.70000000000, &
 4616.08000000000, &
 4610.44000000000, &
 4604.76000000000, &
 4599.08000000000, &
 4593.36000000000, &
 4587.63000000000, &
 4581.86000000000, &
 4576.07000000000, &
 4570.26000000000, &
 4564.43000000000, &
 4558.56000000000, &
 4552.67000000000, &
 4546.76000000000, &
 4540.82000000000, &
 4534.84000000000, &
 4528.85000000000, &
 4522.81000000000, &
 4516.76000000000 /)

 Mref_V%density_ref( 571 : 600 ) = (/ &
 4510.67000000000, &
 4504.56000000000, &
 4498.41000000000, &
 4492.23000000000, &
 4486.02000000000, &
 4479.78000000000, &
 4473.51000000000, &
 4467.20000000000, &
 4460.87000000000, &
 4454.49000000000, &
 4448.08000000000, &
 4441.63000000000, &
 4435.13000000000, &
 4428.60000000000, &
 4428.59000000000, &
 4423.32000000000, &
 4418.01000000000, &
 4412.67000000000, &
 4407.30000000000, &
 4401.90000000000, &
 4396.45000000000, &
 4390.96000000000, &
 4385.40000000000, &
 4379.81000000000, &
 4374.16000000000, &
 4368.47000000000, &
 4362.72000000000, &
 4356.92000000000, &
 4351.08000000000, &
 4345.18000000000 /)

 Mref_V%density_ref( 601 : 630 ) = (/ &
 4339.24000000000, &
 4047.01000000000, &
 4042.50000000000, &
 4037.98000000000, &
 4033.48000000000, &
 4028.95000000000, &
 4024.45000000000, &
 4019.93000000000, &
 4015.42000000000, &
 4010.90000000000, &
 4006.38000000000, &
 4001.87000000000, &
 3997.35000000000, &
 3992.84000000000, &
 3988.32000000000, &
 3983.80000000000, &
 3983.80000000000, &
 3975.79000000000, &
 3967.77000000000, &
 3959.76000000000, &
 3951.75000000000, &
 3943.73000000000, &
 3935.71000000000, &
 3927.69000000000, &
 3919.67000000000, &
 3911.65000000000, &
 3903.61000000000, &
 3895.58000000000, &
 3887.56000000000, &
 3879.53000000000 /)

 Mref_V%density_ref( 631 : 660 ) = (/ &
 3871.50000000000, &
 3863.46000000000, &
 3855.42000000000, &
 3847.38000000000, &
 3839.33000000000, &
 3831.27000000000, &
 3823.22000000000, &
 3815.16000000000, &
 3807.09000000000, &
 3799.01000000000, &
 3790.94000000000, &
 3782.85000000000, &
 3774.78000000000, &
 3766.66000000000, &
 3758.56000000000, &
 3750.45000000000, &
 3742.34000000000, &
 3554.91000000000, &
 3551.00000000000, &
 3547.07000000000, &
 3543.16000000000, &
 3539.23000000000, &
 3535.32000000000, &
 3531.39000000000, &
 3527.46000000000, &
 3523.57000000000, &
 3519.67000000000, &
 3515.77000000000, &
 3511.91000000000, &
 3508.06000000000 /)

 Mref_V%density_ref( 661 : 690 ) = (/ &
 3504.21000000000, &
 3500.39000000000, &
 3496.58000000000, &
 3492.80000000000, &
 3489.05000000000, &
 3485.32000000000, &
 3481.61000000000, &
 3477.88000000000, &
 3474.16000000000, &
 3470.41000000000, &
 3466.59000000000, &
 3462.74000000000, &
 3458.78000000000, &
 3454.75000000000, &
 3450.61000000000, &
 3446.33000000000, &
 3441.91000000000, &
 3437.35000000000, &
 3437.34000000000, &
 3432.81000000000, &
 3428.15000000000, &
 3423.37000000000, &
 3418.47000000000, &
 3413.47000000000, &
 3408.35000000000, &
 3403.15000000000, &
 3397.87000000000, &
 3392.50000000000, &
 3387.07000000000, &
 3381.58000000000 /)

 Mref_V%density_ref( 691 : 720 ) = (/ &
 3376.03000000000, &
 3370.45000000000, &
 3364.87000000000, &
 3359.31000000000, &
 3353.79000000000, &
 3348.37000000000, &
 3343.03000000000, &
 3337.85000000000, &
 3332.83000000000, &
 3328.01000000000, &
 3323.39000000000, &
 3319.04000000000, &
 3319.03000000000, &
 3316.33000000000, &
 3313.75000000000, &
 3311.30000000000, &
 3308.97000000000, &
 3306.73000000000, &
 3304.58000000000, &
 3302.53000000000, &
 3300.55000000000, &
 3298.63000000000, &
 3296.79000000000, &
 3295.00000000000, &
 3293.25000000000, &
 3291.54000000000, &
 3289.84000000000, &
 2900.00000000000, &
 2900.00000000000, &
 2900.00000000000 /)

 Mref_V%density_ref( 721 : 750 ) = (/ &
 2900.00000000000, &
 2900.00000000000, &
 2900.00000000000, &
 2900.00000000000, &
 2900.00000000000, &
 2900.00000000000, &
 2900.00000000000, &
 2900.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000, &
 2600.00000000000 /)

 Mref_V%vpv_ref( 1 : 30 ) = (/ &
 11262.2000000000, &
 11262.2000000000, &
 11262.1800000000, &
 11262.1400000000, &
 11262.0900000000, &
 11262.0200000000, &
 11261.9400000000, &
 11261.8500000000, &
 11261.7400000000, &
 11261.6100000000, &
 11261.4700000000, &
 11261.3200000000, &
 11261.1500000000, &
 11260.9700000000, &
 11260.7700000000, &
 11260.5600000000, &
 11260.3400000000, &
 11260.0900000000, &
 11259.8400000000, &
 11259.5700000000, &
 11259.2800000000, &
 11258.9900000000, &
 11258.6700000000, &
 11258.3400000000, &
 11258.0000000000, &
 11257.6400000000, &
 11257.2700000000, &
 11256.8800000000, &
 11256.4800000000, &
 11256.0600000000 /)

 Mref_V%vpv_ref( 31 : 60 ) = (/ &
 11255.6300000000, &
 11255.1900000000, &
 11254.7300000000, &
 11254.2500000000, &
 11253.7600000000, &
 11253.2600000000, &
 11252.7400000000, &
 11252.2100000000, &
 11251.6600000000, &
 11251.1000000000, &
 11250.5200000000, &
 11249.9300000000, &
 11249.3300000000, &
 11248.7100000000, &
 11248.0700000000, &
 11247.4200000000, &
 11246.7600000000, &
 11246.0800000000, &
 11245.3800000000, &
 11244.6700000000, &
 11243.9500000000, &
 11243.2100000000, &
 11242.4600000000, &
 11241.7000000000, &
 11240.9100000000, &
 11240.1200000000, &
 11239.3100000000, &
 11238.4800000000, &
 11237.6400000000, &
 11236.7900000000 /)

 Mref_V%vpv_ref( 61 : 90 ) = (/ &
 11235.9200000000, &
 11235.0400000000, &
 11234.1400000000, &
 11233.2300000000, &
 11232.3000000000, &
 11231.3600000000, &
 11230.4000000000, &
 11229.4300000000, &
 11228.4400000000, &
 11227.4400000000, &
 11226.4300000000, &
 11225.4000000000, &
 11224.3600000000, &
 11223.3000000000, &
 11222.2200000000, &
 11221.1400000000, &
 11220.0300000000, &
 11218.9200000000, &
 11217.7800000000, &
 11216.6400000000, &
 11215.4800000000, &
 11214.3000000000, &
 11213.1100000000, &
 11211.9100000000, &
 11210.6900000000, &
 11209.4500000000, &
 11208.2100000000, &
 11206.9400000000, &
 11205.6700000000, &
 11204.3700000000 /)

 Mref_V%vpv_ref( 91 : 120 ) = (/ &
 11203.0700000000, &
 11201.7400000000, &
 11200.4100000000, &
 11199.0600000000, &
 11197.6900000000, &
 11196.3100000000, &
 11194.9200000000, &
 11193.5100000000, &
 11192.0900000000, &
 11190.6500000000, &
 11189.1900000000, &
 11187.7300000000, &
 11186.2400000000, &
 11184.7500000000, &
 11183.2400000000, &
 11181.7100000000, &
 11180.1700000000, &
 11178.6100000000, &
 11177.0400000000, &
 11175.4600000000, &
 11173.8600000000, &
 11172.2500000000, &
 11170.6200000000, &
 11168.9800000000, &
 11167.3200000000, &
 11165.6500000000, &
 11163.9600000000, &
 11162.2600000000, &
 11160.5400000000, &
 11158.8100000000 /)

 Mref_V%vpv_ref( 121 : 150 ) = (/ &
 11157.0700000000, &
 11155.3100000000, &
 11153.5400000000, &
 11151.7500000000, &
 11149.9400000000, &
 11148.1300000000, &
 11146.2900000000, &
 11144.4500000000, &
 11142.5800000000, &
 11140.7100000000, &
 11138.8200000000, &
 11136.9100000000, &
 11134.9900000000, &
 11133.0600000000, &
 11131.1100000000, &
 11129.1400000000, &
 11127.1600000000, &
 11125.1700000000, &
 11123.1600000000, &
 11121.1400000000, &
 11119.1000000000, &
 11117.0500000000, &
 11114.9900000000, &
 11112.9000000000, &
 11110.8100000000, &
 11108.7000000000, &
 11106.5700000000, &
 11104.4400000000, &
 11102.2800000000, &
 11100.1100000000 /)

 Mref_V%vpv_ref( 151 : 180 ) = (/ &
 11097.9300000000, &
 11095.7300000000, &
 11093.5200000000, &
 11091.2900000000, &
 11089.0500000000, &
 11086.8000000000, &
 11084.5300000000, &
 11082.2400000000, &
 11079.9400000000, &
 11077.6300000000, &
 11075.3000000000, &
 11072.9500000000, &
 11070.5900000000, &
 11068.2200000000, &
 11065.8300000000, &
 11063.4300000000, &
 11061.0200000000, &
 11058.5800000000, &
 11056.1400000000, &
 11053.6800000000, &
 11051.2000000000, &
 11048.7100000000, &
 11046.2100000000, &
 11043.6900000000, &
 11041.1600000000, &
 11038.6100000000, &
 11036.0500000000, &
 11033.4700000000, &
 11030.8800000000, &
 11028.2700000000 /)

 Mref_V%vpv_ref( 181 : 210 ) = (/ &
 10355.6900000000, &
 10348.2800000000, &
 10340.8500000000, &
 10333.3900000000, &
 10325.9100000000, &
 10318.4000000000, &
 10310.8700000000, &
 10303.3000000000, &
 10295.7100000000, &
 10288.0900000000, &
 10280.4400000000, &
 10272.7600000000, &
 10265.0400000000, &
 10257.3000000000, &
 10249.5200000000, &
 10241.7100000000, &
 10233.8600000000, &
 10225.9800000000, &
 10218.0600000000, &
 10210.1100000000, &
 10202.1200000000, &
 10194.1000000000, &
 10186.0400000000, &
 10177.9400000000, &
 10169.7900000000, &
 10161.6100000000, &
 10153.3900000000, &
 10145.1300000000, &
 10136.8300000000, &
 10128.4800000000 /)

 Mref_V%vpv_ref( 211 : 240 ) = (/ &
 10120.0900000000, &
 10111.6600000000, &
 10103.1800000000, &
 10094.6600000000, &
 10086.0900000000, &
 10077.4800000000, &
 10068.8200000000, &
 10060.1100000000, &
 10051.3500000000, &
 10042.5400000000, &
 10033.6900000000, &
 10024.7800000000, &
 10015.8200000000, &
 10006.8200000000, &
 9997.75000000000, &
 9988.64000000000, &
 9979.47000000000, &
 9970.25000000000, &
 9960.97000000000, &
 9951.64000000000, &
 9942.25000000000, &
 9932.81000000000, &
 9923.31000000000, &
 9913.75000000000, &
 9904.13000000000, &
 9894.45000000000, &
 9884.71000000000, &
 9874.91000000000, &
 9865.05000000000, &
 9855.13000000000 /)

 Mref_V%vpv_ref( 241 : 270 ) = (/ &
 9845.14000000000, &
 9835.09000000000, &
 9824.98000000000, &
 9814.80000000000, &
 9804.56000000000, &
 9794.25000000000, &
 9783.87000000000, &
 9773.43000000000, &
 9762.92000000000, &
 9752.34000000000, &
 9741.69000000000, &
 9730.97000000000, &
 9720.18000000000, &
 9709.32000000000, &
 9698.39000000000, &
 9687.38000000000, &
 9676.31000000000, &
 9665.15000000000, &
 9653.93000000000, &
 9642.63000000000, &
 9631.25000000000, &
 9619.80000000000, &
 9608.27000000000, &
 9596.66000000000, &
 9584.97000000000, &
 9573.20000000000, &
 9561.36000000000, &
 9549.43000000000, &
 9537.43000000000, &
 9525.34000000000 /)

 Mref_V%vpv_ref( 271 : 300 ) = (/ &
 9513.17000000000, &
 9500.91000000000, &
 9488.57000000000, &
 9476.15000000000, &
 9463.64000000000, &
 9451.05000000000, &
 9438.37000000000, &
 9425.61000000000, &
 9412.75000000000, &
 9399.81000000000, &
 9386.78000000000, &
 9373.66000000000, &
 9360.45000000000, &
 9347.15000000000, &
 9333.76000000000, &
 9320.27000000000, &
 9306.70000000000, &
 9293.03000000000, &
 9279.26000000000, &
 9265.40000000000, &
 9251.45000000000, &
 9237.40000000000, &
 9223.25000000000, &
 9209.00000000000, &
 9194.66000000000, &
 9180.22000000000, &
 9165.68000000000, &
 9151.03000000000, &
 9136.29000000000, &
 9121.45000000000 /)

 Mref_V%vpv_ref( 301 : 330 ) = (/ &
 9106.50000000000, &
 9091.46000000000, &
 9076.30000000000, &
 9061.05000000000, &
 9045.69000000000, &
 9030.23000000000, &
 9014.65000000000, &
 8998.98000000000, &
 8983.19000000000, &
 8967.30000000000, &
 8951.30000000000, &
 8935.19000000000, &
 8918.97000000000, &
 8902.64000000000, &
 8886.20000000000, &
 8869.64000000000, &
 8852.98000000000, &
 8836.20000000000, &
 8819.31000000000, &
 8802.30000000000, &
 8785.18000000000, &
 8767.94000000000, &
 8750.59000000000, &
 8733.12000000000, &
 8715.53000000000, &
 8697.82000000000, &
 8680.00000000000, &
 8662.05000000000, &
 8643.99000000000, &
 8625.80000000000 /)

 Mref_V%vpv_ref( 331 : 360 ) = (/ &
 8607.49000000000, &
 8589.06000000000, &
 8570.51000000000, &
 8551.83000000000, &
 8533.03000000000, &
 8514.10000000000, &
 8495.05000000000, &
 8475.87000000000, &
 8456.57000000000, &
 8437.14000000000, &
 8417.58000000000, &
 8397.89000000000, &
 8378.07000000000, &
 8358.12000000000, &
 8338.04000000000, &
 8317.83000000000, &
 8297.49000000000, &
 8277.01000000000, &
 8256.41000000000, &
 8235.66000000000, &
 8214.79000000000, &
 8193.77000000000, &
 8172.62000000000, &
 8151.34000000000, &
 8129.92000000000, &
 8108.36000000000, &
 8086.66000000000, &
 8064.82000000000, &
 13716.6000000000, &
 13714.2900000000 /)

 Mref_V%vpv_ref( 361 : 390 ) = (/ &
 13712.0000000000, &
 13709.7000000000, &
 13707.4200000000, &
 13705.1400000000, &
 13702.8600000000, &
 13700.5900000000, &
 13698.3300000000, &
 13696.0700000000, &
 13693.8200000000, &
 13691.5700000000, &
 13689.3300000000, &
 13687.0900000000, &
 13684.8600000000, &
 13682.6300000000, &
 13680.4100000000, &
 13680.4100000000, &
 13668.9000000000, &
 13657.4300000000, &
 13645.9700000000, &
 13634.5400000000, &
 13623.1400000000, &
 13611.7600000000, &
 13600.4000000000, &
 13589.0700000000, &
 13577.7600000000, &
 13566.4700000000, &
 13555.2000000000, &
 13543.9500000000, &
 13532.7200000000, &
 13521.5100000000 /)

 Mref_V%vpv_ref( 391 : 420 ) = (/ &
 13510.3200000000, &
 13499.1400000000, &
 13487.9900000000, &
 13476.8500000000, &
 13465.7300000000, &
 13454.6300000000, &
 13443.5400000000, &
 13432.4600000000, &
 13421.4100000000, &
 13410.3600000000, &
 13399.3300000000, &
 13388.3100000000, &
 13377.3100000000, &
 13366.3100000000, &
 13355.3300000000, &
 13344.3600000000, &
 13333.4000000000, &
 13322.4500000000, &
 13311.5100000000, &
 13300.5800000000, &
 13289.6600000000, &
 13278.7400000000, &
 13267.8400000000, &
 13256.9300000000, &
 13246.0400000000, &
 13235.1500000000, &
 13224.2700000000, &
 13213.3900000000, &
 13202.5100000000, &
 13191.6400000000 /)

 Mref_V%vpv_ref( 421 : 450 ) = (/ &
 13180.7800000000, &
 13169.9100000000, &
 13159.0500000000, &
 13148.1900000000, &
 13137.3300000000, &
 13126.4700000000, &
 13115.6100000000, &
 13104.7500000000, &
 13093.8900000000, &
 13083.0200000000, &
 13072.1600000000, &
 13061.2900000000, &
 13050.4200000000, &
 13039.5500000000, &
 13028.6700000000, &
 13017.7800000000, &
 13006.9000000000, &
 12996.0000000000, &
 12985.1000000000, &
 12974.1900000000, &
 12963.2800000000, &
 12952.3600000000, &
 12941.4200000000, &
 12930.4800000000, &
 12919.5400000000, &
 12908.5800000000, &
 12897.6100000000, &
 12886.6300000000, &
 12875.6300000000, &
 12864.6300000000 /)

 Mref_V%vpv_ref( 451 : 480 ) = (/ &
 12853.6100000000, &
 12842.5800000000, &
 12831.5400000000, &
 12820.4800000000, &
 12809.4100000000, &
 12798.3200000000, &
 12787.2200000000, &
 12776.1000000000, &
 12764.9600000000, &
 12753.8100000000, &
 12742.6300000000, &
 12731.4400000000, &
 12720.2400000000, &
 12709.0100000000, &
 12697.7600000000, &
 12686.4900000000, &
 12675.2000000000, &
 12663.8900000000, &
 12652.5600000000, &
 12641.2000000000, &
 12629.8200000000, &
 12618.4200000000, &
 12606.9900000000, &
 12595.5400000000, &
 12584.0600000000, &
 12572.5600000000, &
 12561.0300000000, &
 12549.4800000000, &
 12537.8900000000, &
 12526.2800000000 /)

 Mref_V%vpv_ref( 481 : 510 ) = (/ &
 12514.6400000000, &
 12502.9800000000, &
 12491.2800000000, &
 12479.5500000000, &
 12467.7900000000, &
 12456.0100000000, &
 12444.1900000000, &
 12432.3300000000, &
 12420.4500000000, &
 12408.5300000000, &
 12396.5800000000, &
 12384.6000000000, &
 12372.5800000000, &
 12360.5200000000, &
 12348.4300000000, &
 12336.3000000000, &
 12324.1400000000, &
 12311.9400000000, &
 12299.7000000000, &
 12287.4200000000, &
 12275.1100000000, &
 12262.7500000000, &
 12250.3500000000, &
 12237.9200000000, &
 12225.4400000000, &
 12212.9200000000, &
 12200.3600000000, &
 12187.7600000000, &
 12175.1100000000, &
 12162.4300000000 /)

 Mref_V%vpv_ref( 511 : 540 ) = (/ &
 12149.6900000000, &
 12136.9100000000, &
 12124.0900000000, &
 12111.2200000000, &
 12098.3100000000, &
 12085.3400000000, &
 12072.3400000000, &
 12059.2800000000, &
 12046.1700000000, &
 12033.0200000000, &
 12019.8200000000, &
 12006.5600000000, &
 11993.2600000000, &
 11979.9000000000, &
 11966.5000000000, &
 11953.0400000000, &
 11939.5300000000, &
 11925.9700000000, &
 11912.3500000000, &
 11898.6900000000, &
 11884.9600000000, &
 11871.1900000000, &
 11857.3700000000, &
 11843.4800000000, &
 11829.5500000000, &
 11815.5700000000, &
 11801.5300000000, &
 11787.4400000000, &
 11773.3000000000, &
 11759.1000000000 /)

 Mref_V%vpv_ref( 541 : 570 ) = (/ &
 11744.8500000000, &
 11730.5500000000, &
 11716.1800000000, &
 11701.7800000000, &
 11687.3100000000, &
 11672.8000000000, &
 11658.2300000000, &
 11643.6000000000, &
 11628.9200000000, &
 11614.1900000000, &
 11599.4000000000, &
 11584.5700000000, &
 11569.6800000000, &
 11554.7200000000, &
 11539.7200000000, &
 11524.6700000000, &
 11509.5600000000, &
 11494.3900000000, &
 11479.1700000000, &
 11463.8900000000, &
 11448.5500000000, &
 11433.1700000000, &
 11417.7300000000, &
 11402.2300000000, &
 11386.6800000000, &
 11371.0700000000, &
 11355.4100000000, &
 11339.6900000000, &
 11323.9100000000, &
 11308.0900000000 /)

 Mref_V%vpv_ref( 571 : 600 ) = (/ &
 11292.2000000000, &
 11276.2500000000, &
 11260.2500000000, &
 11244.1900000000, &
 11228.0800000000, &
 11211.9000000000, &
 11195.6700000000, &
 11179.3800000000, &
 11163.0400000000, &
 11146.6300000000, &
 11130.1800000000, &
 11113.6700000000, &
 11097.1100000000, &
 11080.5100000000, &
 11080.5100000000, &
 11063.0100000000, &
 11045.2200000000, &
 11026.8200000000, &
 11008.4700000000, &
 10989.0400000000, &
 10969.6300000000, &
 10948.7600000000, &
 10928.0200000000, &
 10907.4200000000, &
 10886.9400000000, &
 10866.6000000000, &
 10846.4100000000, &
 10826.3500000000, &
 10806.4200000000, &
 10786.6100000000 /)

 Mref_V%vpv_ref( 601 : 630 ) = (/ &
 10766.9000000000, &
 10278.8800000000, &
 10261.8700000000, &
 10244.8400000000, &
 10227.8200000000, &
 10210.8000000000, &
 10193.7800000000, &
 10176.7700000000, &
 10159.7400000000, &
 10142.7200000000, &
 10125.7100000000, &
 10108.7000000000, &
 10091.6800000000, &
 10074.6800000000, &
 10057.6800000000, &
 10040.6400000000, &
 10040.6700000000, &
 10010.5200000000, &
 9980.51000000000, &
 9950.64000000000, &
 9920.91000000000, &
 9891.35000000000, &
 9861.96000000000, &
 9832.79000000000, &
 9803.79000000000, &
 9774.98000000000, &
 9746.41000000000, &
 9718.08000000000, &
 9689.96000000000, &
 9662.10000000000 /)

 Mref_V%vpv_ref( 631 : 660 ) = (/ &
 9634.47000000000, &
 9607.11000000000, &
 9579.97000000000, &
 9553.08000000000, &
 9526.38000000000, &
 9499.78000000000, &
 9473.25000000000, &
 9446.74000000000, &
 9420.19000000000, &
 9393.55000000000, &
 9366.75000000000, &
 9339.76000000000, &
 9312.50000000000, &
 9284.96000000000, &
 9257.04000000000, &
 9228.73000000000, &
 9199.94000000000, &
 8940.94000000000, &
 8930.61000000000, &
 8920.22000000000, &
 8909.68000000000, &
 8898.47000000000, &
 8886.28000000000, &
 8873.03000000000, &
 8858.58000000000, &
 8842.82000000000, &
 8825.64000000000, &
 8806.94000000000, &
 8786.67000000000, &
 8764.85000000000 /)

 Mref_V%vpv_ref( 661 : 690 ) = (/ &
 8741.49000000000, &
 8716.63000000000, &
 8690.30000000000, &
 8662.50000000000, &
 8633.28000000000, &
 8602.66000000000, &
 8570.81000000000, &
 8538.06000000000, &
 8504.66000000000, &
 8470.92000000000, &
 8437.13000000000, &
 8403.52000000000, &
 8370.42000000000, &
 8338.11000000000, &
 8306.25000000000, &
 8275.42000000000, &
 8241.77000000000, &
 8207.37000000000, &
 8207.01000000000, &
 8174.32000000000, &
 8141.99000000000, &
 8110.40000000000, &
 8079.71000000000, &
 8050.15000000000, &
 8021.89000000000, &
 7995.08000000000, &
 7969.97000000000, &
 7946.70000000000, &
 7925.45000000000, &
 7906.44000000000 /)

 Mref_V%vpv_ref( 691 : 720 ) = (/ &
 7889.80000000000, &
 7875.56000000000, &
 7863.64000000000, &
 7853.87000000000, &
 7846.17000000000, &
 7840.38000000000, &
 7836.39000000000, &
 7834.11000000000, &
 7833.38000000000, &
 7834.11000000000, &
 7836.11000000000, &
 7839.12000000000, &
 7839.37000000000, &
 7841.82000000000, &
 7844.77000000000, &
 7848.07000000000, &
 7851.72000000000, &
 7855.75000000000, &
 7860.14000000000, &
 7864.89000000000, &
 7870.01000000000, &
 7875.49000000000, &
 7881.33000000000, &
 7887.54000000000, &
 7894.13000000000, &
 7901.10000000000, &
 7908.24000000000, &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000 /)

 Mref_V%vpv_ref( 721 : 750 ) = (/ &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000 /)

 Mref_V%vsv_ref( 1 : 30 ) = (/ &
 3667.80000000000, &
 3667.79000000000, &
 3667.78000000000, &
 3667.75000000000, &
 3667.72000000000, &
 3667.67000000000, &
 3667.62000000000, &
 3667.55000000000, &
 3667.47000000000, &
 3667.39000000000, &
 3667.29000000000, &
 3667.18000000000, &
 3667.06000000000, &
 3666.94000000000, &
 3666.80000000000, &
 3666.65000000000, &
 3666.49000000000, &
 3666.32000000000, &
 3666.15000000000, &
 3665.96000000000, &
 3665.76000000000, &
 3665.55000000000, &
 3665.33000000000, &
 3665.10000000000, &
 3664.86000000000, &
 3664.61000000000, &
 3664.35000000000, &
 3664.08000000000, &
 3663.80000000000, &
 3663.51000000000 /)

 Mref_V%vsv_ref( 31 : 60 ) = (/ &
 3663.21000000000, &
 3662.90000000000, &
 3662.57000000000, &
 3662.24000000000, &
 3661.90000000000, &
 3661.55000000000, &
 3661.19000000000, &
 3660.81000000000, &
 3660.43000000000, &
 3660.04000000000, &
 3659.64000000000, &
 3659.22000000000, &
 3658.80000000000, &
 3658.36000000000, &
 3657.92000000000, &
 3657.47000000000, &
 3657.00000000000, &
 3656.53000000000, &
 3656.04000000000, &
 3655.55000000000, &
 3655.04000000000, &
 3654.53000000000, &
 3654.00000000000, &
 3653.47000000000, &
 3652.92000000000, &
 3652.36000000000, &
 3651.80000000000, &
 3651.22000000000, &
 3650.63000000000, &
 3650.04000000000 /)

 Mref_V%vsv_ref( 61 : 90 ) = (/ &
 3649.43000000000, &
 3648.81000000000, &
 3648.19000000000, &
 3647.55000000000, &
 3646.90000000000, &
 3646.24000000000, &
 3645.57000000000, &
 3644.89000000000, &
 3644.21000000000, &
 3643.51000000000, &
 3642.80000000000, &
 3642.08000000000, &
 3641.35000000000, &
 3640.61000000000, &
 3639.86000000000, &
 3639.10000000000, &
 3638.33000000000, &
 3637.55000000000, &
 3636.76000000000, &
 3635.96000000000, &
 3635.14000000000, &
 3634.32000000000, &
 3633.49000000000, &
 3632.65000000000, &
 3631.80000000000, &
 3630.93000000000, &
 3630.06000000000, &
 3629.18000000000, &
 3628.29000000000, &
 3627.38000000000 /)

 Mref_V%vsv_ref( 91 : 120 ) = (/ &
 3626.47000000000, &
 3625.55000000000, &
 3624.61000000000, &
 3623.67000000000, &
 3622.71000000000, &
 3621.75000000000, &
 3620.78000000000, &
 3619.79000000000, &
 3618.80000000000, &
 3617.79000000000, &
 3616.78000000000, &
 3615.75000000000, &
 3614.71000000000, &
 3613.67000000000, &
 3612.61000000000, &
 3611.55000000000, &
 3610.47000000000, &
 3609.38000000000, &
 3608.28000000000, &
 3607.18000000000, &
 3606.06000000000, &
 3604.93000000000, &
 3603.79000000000, &
 3602.65000000000, &
 3601.49000000000, &
 3600.32000000000, &
 3599.14000000000, &
 3597.95000000000, &
 3596.75000000000, &
 3595.54000000000 /)

 Mref_V%vsv_ref( 121 : 150 ) = (/ &
 3594.32000000000, &
 3593.10000000000, &
 3591.86000000000, &
 3590.61000000000, &
 3589.34000000000, &
 3588.07000000000, &
 3586.79000000000, &
 3585.50000000000, &
 3584.20000000000, &
 3582.89000000000, &
 3581.57000000000, &
 3580.24000000000, &
 3578.90000000000, &
 3577.54000000000, &
 3576.18000000000, &
 3574.81000000000, &
 3573.43000000000, &
 3572.03000000000, &
 3570.63000000000, &
 3569.22000000000, &
 3567.79000000000, &
 3566.36000000000, &
 3564.91000000000, &
 3563.46000000000, &
 3562.00000000000, &
 3560.52000000000, &
 3559.04000000000, &
 3557.54000000000, &
 3556.04000000000, &
 3554.52000000000 /)

 Mref_V%vsv_ref( 151 : 180 ) = (/ &
 3553.00000000000, &
 3551.46000000000, &
 3549.91000000000, &
 3548.36000000000, &
 3546.79000000000, &
 3545.21000000000, &
 3543.63000000000, &
 3542.03000000000, &
 3540.42000000000, &
 3538.81000000000, &
 3537.18000000000, &
 3535.54000000000, &
 3533.89000000000, &
 3532.23000000000, &
 3530.57000000000, &
 3528.89000000000, &
 3527.20000000000, &
 3525.50000000000, &
 3523.79000000000, &
 3522.07000000000, &
 3520.34000000000, &
 3518.60000000000, &
 3516.85000000000, &
 3515.09000000000, &
 3513.32000000000, &
 3511.54000000000, &
 3509.75000000000, &
 3507.95000000000, &
 3506.13000000000, &
 3504.31000000000 /)

 Mref_V%vsv_ref( 181 : 210 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%vsv_ref( 211 : 240 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%vsv_ref( 241 : 270 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%vsv_ref( 271 : 300 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%vsv_ref( 301 : 330 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%vsv_ref( 331 : 360 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 7264.66000000000, &
 7264.75000000000 /)

 Mref_V%vsv_ref( 361 : 390 ) = (/ &
 7264.85000000000, &
 7264.94000000000, &
 7265.03000000000, &
 7265.12000000000, &
 7265.21000000000, &
 7265.29000000000, &
 7265.38000000000, &
 7265.46000000000, &
 7265.54000000000, &
 7265.62000000000, &
 7265.69000000000, &
 7265.76000000000, &
 7265.84000000000, &
 7265.91000000000, &
 7265.97000000000, &
 7265.97000000000, &
 7261.63000000000, &
 7257.29000000000, &
 7252.97000000000, &
 7248.64000000000, &
 7244.33000000000, &
 7240.01000000000, &
 7235.71000000000, &
 7231.41000000000, &
 7227.12000000000, &
 7222.83000000000, &
 7218.55000000000, &
 7214.27000000000, &
 7210.00000000000, &
 7205.73000000000 /)

 Mref_V%vsv_ref( 391 : 420 ) = (/ &
 7201.47000000000, &
 7197.21000000000, &
 7192.95000000000, &
 7188.70000000000, &
 7184.45000000000, &
 7180.21000000000, &
 7175.97000000000, &
 7171.73000000000, &
 7167.50000000000, &
 7163.27000000000, &
 7159.04000000000, &
 7154.81000000000, &
 7150.59000000000, &
 7146.37000000000, &
 7142.15000000000, &
 7137.93000000000, &
 7133.71000000000, &
 7129.50000000000, &
 7125.29000000000, &
 7121.07000000000, &
 7116.86000000000, &
 7112.65000000000, &
 7108.44000000000, &
 7104.23000000000, &
 7100.02000000000, &
 7095.81000000000, &
 7091.60000000000, &
 7087.39000000000, &
 7083.18000000000, &
 7078.96000000000 /)

 Mref_V%vsv_ref( 421 : 450 ) = (/ &
 7074.75000000000, &
 7070.54000000000, &
 7066.32000000000, &
 7062.10000000000, &
 7057.88000000000, &
 7053.66000000000, &
 7049.44000000000, &
 7045.22000000000, &
 7040.99000000000, &
 7036.76000000000, &
 7032.52000000000, &
 7028.29000000000, &
 7024.05000000000, &
 7019.81000000000, &
 7015.56000000000, &
 7011.31000000000, &
 7007.06000000000, &
 7002.80000000000, &
 6998.54000000000, &
 6994.27000000000, &
 6990.00000000000, &
 6985.72000000000, &
 6981.44000000000, &
 6977.15000000000, &
 6972.86000000000, &
 6968.57000000000, &
 6964.26000000000, &
 6959.95000000000, &
 6955.64000000000, &
 6951.32000000000 /)

 Mref_V%vsv_ref( 451 : 480 ) = (/ &
 6946.99000000000, &
 6942.66000000000, &
 6938.31000000000, &
 6933.97000000000, &
 6929.61000000000, &
 6925.25000000000, &
 6920.88000000000, &
 6916.50000000000, &
 6912.11000000000, &
 6907.72000000000, &
 6903.32000000000, &
 6898.91000000000, &
 6894.49000000000, &
 6890.06000000000, &
 6885.62000000000, &
 6881.17000000000, &
 6876.72000000000, &
 6872.25000000000, &
 6867.78000000000, &
 6863.29000000000, &
 6858.80000000000, &
 6854.29000000000, &
 6849.78000000000, &
 6845.25000000000, &
 6840.71000000000, &
 6836.16000000000, &
 6831.60000000000, &
 6827.03000000000, &
 6822.45000000000, &
 6817.85000000000 /)

 Mref_V%vsv_ref( 481 : 510 ) = (/ &
 6813.25000000000, &
 6808.63000000000, &
 6804.00000000000, &
 6799.35000000000, &
 6794.70000000000, &
 6790.03000000000, &
 6785.34000000000, &
 6780.65000000000, &
 6775.94000000000, &
 6771.22000000000, &
 6766.48000000000, &
 6761.73000000000, &
 6756.97000000000, &
 6752.19000000000, &
 6747.40000000000, &
 6742.59000000000, &
 6737.76000000000, &
 6732.93000000000, &
 6728.07000000000, &
 6723.21000000000, &
 6718.32000000000, &
 6713.42000000000, &
 6708.51000000000, &
 6703.57000000000, &
 6698.62000000000, &
 6693.66000000000, &
 6688.68000000000, &
 6683.68000000000, &
 6678.66000000000, &
 6673.63000000000 /)

 Mref_V%vsv_ref( 511 : 540 ) = (/ &
 6668.58000000000, &
 6663.51000000000, &
 6658.43000000000, &
 6653.32000000000, &
 6648.20000000000, &
 6643.06000000000, &
 6637.90000000000, &
 6632.73000000000, &
 6627.53000000000, &
 6622.31000000000, &
 6617.08000000000, &
 6611.82000000000, &
 6606.55000000000, &
 6601.26000000000, &
 6595.94000000000, &
 6590.61000000000, &
 6584.91000000000, &
 6579.51000000000, &
 6574.11000000000, &
 6568.67000000000, &
 6563.22000000000, &
 6557.74000000000, &
 6552.24000000000, &
 6546.73000000000, &
 6541.19000000000, &
 6535.63000000000, &
 6530.05000000000, &
 6524.44000000000, &
 6518.82000000000, &
 6513.17000000000 /)

 Mref_V%vsv_ref( 541 : 570 ) = (/ &
 6507.50000000000, &
 6501.80000000000, &
 6496.09000000000, &
 6490.35000000000, &
 6484.59000000000, &
 6478.80000000000, &
 6472.99000000000, &
 6467.16000000000, &
 6461.30000000000, &
 6455.42000000000, &
 6449.51000000000, &
 6443.58000000000, &
 6437.63000000000, &
 6431.65000000000, &
 6425.65000000000, &
 6419.61000000000, &
 6413.56000000000, &
 6407.48000000000, &
 6401.37000000000, &
 6395.25000000000, &
 6389.09000000000, &
 6382.91000000000, &
 6376.70000000000, &
 6370.46000000000, &
 6364.20000000000, &
 6357.91000000000, &
 6351.59000000000, &
 6345.25000000000, &
 6338.88000000000, &
 6332.49000000000 /)

 Mref_V%vsv_ref( 571 : 600 ) = (/ &
 6326.05000000000, &
 6319.60000000000, &
 6313.13000000000, &
 6306.62000000000, &
 6300.08000000000, &
 6293.52000000000, &
 6286.92000000000, &
 6280.29000000000, &
 6273.64000000000, &
 6266.96000000000, &
 6260.25000000000, &
 6253.51000000000, &
 6246.75000000000, &
 6239.95000000000, &
 6239.95000000000, &
 6219.68000000000, &
 6200.29000000000, &
 6181.16000000000, &
 6162.04000000000, &
 6143.01000000000, &
 6123.98000000000, &
 6103.71000000000, &
 6083.53000000000, &
 6063.45000000000, &
 6043.44000000000, &
 6023.52000000000, &
 6003.73000000000, &
 5984.03000000000, &
 5964.38000000000, &
 5944.81000000000 /)

 Mref_V%vsv_ref( 601 : 630 ) = (/ &
 5925.27000000000, &
 5550.32000000000, &
 5541.20000000000, &
 5532.08000000000, &
 5522.96000000000, &
 5513.83000000000, &
 5504.71000000000, &
 5495.59000000000, &
 5486.47000000000, &
 5477.35000000000, &
 5468.22000000000, &
 5459.10000000000, &
 5449.97000000000, &
 5440.84000000000, &
 5431.71000000000, &
 5422.57000000000, &
 5422.59000000000, &
 5406.39000000000, &
 5390.30000000000, &
 5374.34000000000, &
 5358.52000000000, &
 5342.83000000000, &
 5327.31000000000, &
 5311.92000000000, &
 5296.73000000000, &
 5281.71000000000, &
 5266.86000000000, &
 5252.21000000000, &
 5237.78000000000, &
 5223.55000000000 /)

 Mref_V%vsv_ref( 631 : 660 ) = (/ &
 5209.54000000000, &
 5195.72000000000, &
 5182.10000000000, &
 5168.69000000000, &
 5155.42000000000, &
 5142.22000000000, &
 5129.05000000000, &
 5115.84000000000, &
 5102.55000000000, &
 5089.14000000000, &
 5075.50000000000, &
 5061.63000000000, &
 5047.46000000000, &
 5032.93000000000, &
 5018.03000000000, &
 5002.66000000000, &
 4986.77000000000, &
 4802.15000000000, &
 4798.23000000000, &
 4794.28000000000, &
 4790.38000000000, &
 4785.95000000000, &
 4780.83000000000, &
 4775.01000000000, &
 4768.45000000000, &
 4761.12000000000, &
 4752.97000000000, &
 4744.01000000000, &
 4734.25000000000, &
 4723.77000000000 /)

 Mref_V%vsv_ref( 661 : 690 ) = (/ &
 4712.70000000000, &
 4701.12000000000, &
 4689.11000000000, &
 4676.77000000000, &
 4664.20000000000, &
 4651.49000000000, &
 4638.69000000000, &
 4625.88000000000, &
 4613.07000000000, &
 4600.31000000000, &
 4587.67000000000, &
 4575.18000000000, &
 4562.88000000000, &
 4550.85000000000, &
 4539.08000000000, &
 4527.67000000000, &
 4516.65000000000, &
 4506.09000000000, &
 4506.00000000000, &
 4496.29000000000, &
 4487.00000000000, &
 4478.17000000000, &
 4469.83000000000, &
 4462.00000000000, &
 4454.69000000000, &
 4447.94000000000, &
 4441.76000000000, &
 4436.18000000000, &
 4431.20000000000, &
 4426.83000000000 /)

 Mref_V%vsv_ref( 691 : 720 ) = (/ &
 4423.12000000000, &
 4420.09000000000, &
 4417.81000000000, &
 4416.30000000000, &
 4415.67000000000, &
 4415.93000000000, &
 4417.15000000000, &
 4419.42000000000, &
 4422.78000000000, &
 4427.25000000000, &
 4432.88000000000, &
 4439.57000000000, &
 4439.74000000000, &
 4444.71000000000, &
 4450.28000000000, &
 4456.35000000000, &
 4462.89000000000, &
 4469.94000000000, &
 4477.40000000000, &
 4485.33000000000, &
 4493.69000000000, &
 4502.48000000000, &
 4511.66000000000, &
 4521.24000000000, &
 4531.23000000000, &
 4541.57000000000, &
 4552.08000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000 /)

 Mref_V%vsv_ref( 721 : 750 ) = (/ &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000 /)

 Mref_V%Qkappa_ref( 1 : 30 ) = (/ &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000 /)

 Mref_V%Qkappa_ref( 31 : 60 ) = (/ &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000 /)

 Mref_V%Qkappa_ref( 61 : 90 ) = (/ &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000 /)

 Mref_V%Qkappa_ref( 91 : 120 ) = (/ &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000 /)

 Mref_V%Qkappa_ref( 121 : 150 ) = (/ &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000 /)

 Mref_V%Qkappa_ref( 151 : 180 ) = (/ &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000, &
 1327.60000000000 /)

 Mref_V%Qkappa_ref( 181 : 210 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 211 : 240 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 241 : 270 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 271 : 300 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 301 : 330 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 331 : 360 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 361 : 390 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 391 : 420 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 421 : 450 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 451 : 480 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 481 : 510 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 511 : 540 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 541 : 570 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 571 : 600 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 601 : 630 ) = (/ &
 57822.5000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000 /)

 Mref_V%Qkappa_ref( 631 : 660 ) = (/ &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000 /)

 Mref_V%Qkappa_ref( 661 : 690 ) = (/ &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000 /)

 Mref_V%Qkappa_ref( 691 : 720 ) = (/ &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 943.000000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qkappa_ref( 721 : 750 ) = (/ &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000, &
 57822.5000000000 /)

 Mref_V%Qmu_ref( 1 : 30 ) = (/ &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000 /)

 Mref_V%Qmu_ref( 31 : 60 ) = (/ &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000 /)

 Mref_V%Qmu_ref( 61 : 90 ) = (/ &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000 /)

 Mref_V%Qmu_ref( 91 : 120 ) = (/ &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000 /)

 Mref_V%Qmu_ref( 121 : 150 ) = (/ &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000 /)

 Mref_V%Qmu_ref( 151 : 180 ) = (/ &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000, &
 104.000000000000 /)

 Mref_V%Qmu_ref( 181 : 210 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%Qmu_ref( 211 : 240 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%Qmu_ref( 241 : 270 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%Qmu_ref( 271 : 300 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%Qmu_ref( 301 : 330 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%Qmu_ref( 331 : 360 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 355.000000000000, &
 355.000000000000 /)

 Mref_V%Qmu_ref( 361 : 390 ) = (/ &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000 /)

 Mref_V%Qmu_ref( 391 : 420 ) = (/ &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000 /)

 Mref_V%Qmu_ref( 421 : 450 ) = (/ &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000 /)

 Mref_V%Qmu_ref( 451 : 480 ) = (/ &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000 /)

 Mref_V%Qmu_ref( 481 : 510 ) = (/ &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000 /)

 Mref_V%Qmu_ref( 511 : 540 ) = (/ &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000 /)

 Mref_V%Qmu_ref( 541 : 570 ) = (/ &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000 /)

 Mref_V%Qmu_ref( 571 : 600 ) = (/ &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000, &
 355.000000000000 /)

 Mref_V%Qmu_ref( 601 : 630 ) = (/ &
 355.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000 /)

 Mref_V%Qmu_ref( 631 : 660 ) = (/ &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000 /)

 Mref_V%Qmu_ref( 661 : 690 ) = (/ &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 165.000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000 /)

 Mref_V%Qmu_ref( 691 : 720 ) = (/ &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 70.0000000000000, &
 191.000000000000, &
 191.000000000000, &
 191.000000000000, &
 191.000000000000, &
 191.000000000000, &
 191.000000000000, &
 191.000000000000, &
 191.000000000000, &
 191.000000000000, &
 191.000000000000, &
 191.000000000000, &
 191.000000000000, &
 191.000000000000, &
 191.000000000000, &
 191.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000 /)

 Mref_V%Qmu_ref( 721 : 750 ) = (/ &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000, &
 300.000000000000 /)

 Mref_V%vph_ref( 1 : 30 ) = (/ &
 11262.2000000000, &
 11262.2000000000, &
 11262.1800000000, &
 11262.1400000000, &
 11262.0900000000, &
 11262.0200000000, &
 11261.9400000000, &
 11261.8500000000, &
 11261.7400000000, &
 11261.6100000000, &
 11261.4700000000, &
 11261.3200000000, &
 11261.1500000000, &
 11260.9700000000, &
 11260.7700000000, &
 11260.5600000000, &
 11260.3400000000, &
 11260.0900000000, &
 11259.8400000000, &
 11259.5700000000, &
 11259.2800000000, &
 11258.9900000000, &
 11258.6700000000, &
 11258.3400000000, &
 11258.0000000000, &
 11257.6400000000, &
 11257.2700000000, &
 11256.8800000000, &
 11256.4800000000, &
 11256.0600000000 /)

 Mref_V%vph_ref( 31 : 60 ) = (/ &
 11255.6300000000, &
 11255.1900000000, &
 11254.7300000000, &
 11254.2500000000, &
 11253.7600000000, &
 11253.2600000000, &
 11252.7400000000, &
 11252.2100000000, &
 11251.6600000000, &
 11251.1000000000, &
 11250.5200000000, &
 11249.9300000000, &
 11249.3300000000, &
 11248.7100000000, &
 11248.0700000000, &
 11247.4200000000, &
 11246.7600000000, &
 11246.0800000000, &
 11245.3800000000, &
 11244.6700000000, &
 11243.9500000000, &
 11243.2100000000, &
 11242.4600000000, &
 11241.7000000000, &
 11240.9100000000, &
 11240.1200000000, &
 11239.3100000000, &
 11238.4800000000, &
 11237.6400000000, &
 11236.7900000000 /)

 Mref_V%vph_ref( 61 : 90 ) = (/ &
 11235.9200000000, &
 11235.0400000000, &
 11234.1400000000, &
 11233.2300000000, &
 11232.3000000000, &
 11231.3600000000, &
 11230.4000000000, &
 11229.4300000000, &
 11228.4400000000, &
 11227.4400000000, &
 11226.4300000000, &
 11225.4000000000, &
 11224.3600000000, &
 11223.3000000000, &
 11222.2200000000, &
 11221.1400000000, &
 11220.0300000000, &
 11218.9200000000, &
 11217.7800000000, &
 11216.6400000000, &
 11215.4800000000, &
 11214.3000000000, &
 11213.1100000000, &
 11211.9100000000, &
 11210.6900000000, &
 11209.4500000000, &
 11208.2100000000, &
 11206.9400000000, &
 11205.6700000000, &
 11204.3700000000 /)

 Mref_V%vph_ref( 91 : 120 ) = (/ &
 11203.0700000000, &
 11201.7400000000, &
 11200.4100000000, &
 11199.0600000000, &
 11197.6900000000, &
 11196.3100000000, &
 11194.9200000000, &
 11193.5100000000, &
 11192.0900000000, &
 11190.6500000000, &
 11189.1900000000, &
 11187.7300000000, &
 11186.2400000000, &
 11184.7500000000, &
 11183.2400000000, &
 11181.7100000000, &
 11180.1700000000, &
 11178.6100000000, &
 11177.0400000000, &
 11175.4600000000, &
 11173.8600000000, &
 11172.2500000000, &
 11170.6200000000, &
 11168.9800000000, &
 11167.3200000000, &
 11165.6500000000, &
 11163.9600000000, &
 11162.2600000000, &
 11160.5400000000, &
 11158.8100000000 /)

 Mref_V%vph_ref( 121 : 150 ) = (/ &
 11157.0700000000, &
 11155.3100000000, &
 11153.5400000000, &
 11151.7500000000, &
 11149.9400000000, &
 11148.1300000000, &
 11146.2900000000, &
 11144.4500000000, &
 11142.5800000000, &
 11140.7100000000, &
 11138.8200000000, &
 11136.9100000000, &
 11134.9900000000, &
 11133.0600000000, &
 11131.1100000000, &
 11129.1400000000, &
 11127.1600000000, &
 11125.1700000000, &
 11123.1600000000, &
 11121.1400000000, &
 11119.1000000000, &
 11117.0500000000, &
 11114.9900000000, &
 11112.9000000000, &
 11110.8100000000, &
 11108.7000000000, &
 11106.5700000000, &
 11104.4400000000, &
 11102.2800000000, &
 11100.1100000000 /)

 Mref_V%vph_ref( 151 : 180 ) = (/ &
 11097.9300000000, &
 11095.7300000000, &
 11093.5200000000, &
 11091.2900000000, &
 11089.0500000000, &
 11086.8000000000, &
 11084.5300000000, &
 11082.2400000000, &
 11079.9400000000, &
 11077.6300000000, &
 11075.3000000000, &
 11072.9500000000, &
 11070.5900000000, &
 11068.2200000000, &
 11065.8300000000, &
 11063.4300000000, &
 11061.0200000000, &
 11058.5800000000, &
 11056.1400000000, &
 11053.6800000000, &
 11051.2000000000, &
 11048.7100000000, &
 11046.2100000000, &
 11043.6900000000, &
 11041.1600000000, &
 11038.6100000000, &
 11036.0500000000, &
 11033.4700000000, &
 11030.8800000000, &
 11028.2700000000 /)

 Mref_V%vph_ref( 181 : 210 ) = (/ &
 10355.6900000000, &
 10348.2800000000, &
 10340.8500000000, &
 10333.3900000000, &
 10325.9100000000, &
 10318.4000000000, &
 10310.8700000000, &
 10303.3000000000, &
 10295.7100000000, &
 10288.0900000000, &
 10280.4400000000, &
 10272.7600000000, &
 10265.0400000000, &
 10257.3000000000, &
 10249.5200000000, &
 10241.7100000000, &
 10233.8600000000, &
 10225.9800000000, &
 10218.0600000000, &
 10210.1100000000, &
 10202.1200000000, &
 10194.1000000000, &
 10186.0400000000, &
 10177.9400000000, &
 10169.7900000000, &
 10161.6100000000, &
 10153.3900000000, &
 10145.1300000000, &
 10136.8300000000, &
 10128.4800000000 /)

 Mref_V%vph_ref( 211 : 240 ) = (/ &
 10120.0900000000, &
 10111.6600000000, &
 10103.1800000000, &
 10094.6600000000, &
 10086.0900000000, &
 10077.4800000000, &
 10068.8200000000, &
 10060.1100000000, &
 10051.3500000000, &
 10042.5400000000, &
 10033.6900000000, &
 10024.7800000000, &
 10015.8200000000, &
 10006.8200000000, &
 9997.75000000000, &
 9988.64000000000, &
 9979.47000000000, &
 9970.25000000000, &
 9960.97000000000, &
 9951.64000000000, &
 9942.25000000000, &
 9932.81000000000, &
 9923.31000000000, &
 9913.75000000000, &
 9904.13000000000, &
 9894.45000000000, &
 9884.71000000000, &
 9874.91000000000, &
 9865.05000000000, &
 9855.13000000000 /)

 Mref_V%vph_ref( 241 : 270 ) = (/ &
 9845.14000000000, &
 9835.09000000000, &
 9824.98000000000, &
 9814.80000000000, &
 9804.56000000000, &
 9794.25000000000, &
 9783.87000000000, &
 9773.43000000000, &
 9762.92000000000, &
 9752.34000000000, &
 9741.69000000000, &
 9730.97000000000, &
 9720.18000000000, &
 9709.32000000000, &
 9698.39000000000, &
 9687.38000000000, &
 9676.31000000000, &
 9665.15000000000, &
 9653.93000000000, &
 9642.63000000000, &
 9631.25000000000, &
 9619.80000000000, &
 9608.27000000000, &
 9596.66000000000, &
 9584.97000000000, &
 9573.20000000000, &
 9561.36000000000, &
 9549.43000000000, &
 9537.43000000000, &
 9525.34000000000 /)

 Mref_V%vph_ref( 271 : 300 ) = (/ &
 9513.17000000000, &
 9500.91000000000, &
 9488.57000000000, &
 9476.15000000000, &
 9463.64000000000, &
 9451.05000000000, &
 9438.37000000000, &
 9425.61000000000, &
 9412.75000000000, &
 9399.81000000000, &
 9386.78000000000, &
 9373.66000000000, &
 9360.45000000000, &
 9347.15000000000, &
 9333.76000000000, &
 9320.27000000000, &
 9306.70000000000, &
 9293.03000000000, &
 9279.26000000000, &
 9265.40000000000, &
 9251.45000000000, &
 9237.40000000000, &
 9223.25000000000, &
 9209.00000000000, &
 9194.66000000000, &
 9180.22000000000, &
 9165.68000000000, &
 9151.03000000000, &
 9136.29000000000, &
 9121.45000000000 /)

 Mref_V%vph_ref( 301 : 330 ) = (/ &
 9106.50000000000, &
 9091.46000000000, &
 9076.30000000000, &
 9061.05000000000, &
 9045.69000000000, &
 9030.23000000000, &
 9014.65000000000, &
 8998.98000000000, &
 8983.19000000000, &
 8967.30000000000, &
 8951.30000000000, &
 8935.19000000000, &
 8918.97000000000, &
 8902.64000000000, &
 8886.20000000000, &
 8869.64000000000, &
 8852.98000000000, &
 8836.20000000000, &
 8819.31000000000, &
 8802.30000000000, &
 8785.18000000000, &
 8767.94000000000, &
 8750.59000000000, &
 8733.12000000000, &
 8715.53000000000, &
 8697.82000000000, &
 8680.00000000000, &
 8662.05000000000, &
 8643.99000000000, &
 8625.80000000000 /)

 Mref_V%vph_ref( 331 : 360 ) = (/ &
 8607.49000000000, &
 8589.06000000000, &
 8570.51000000000, &
 8551.83000000000, &
 8533.03000000000, &
 8514.10000000000, &
 8495.05000000000, &
 8475.87000000000, &
 8456.57000000000, &
 8437.14000000000, &
 8417.58000000000, &
 8397.89000000000, &
 8378.07000000000, &
 8358.12000000000, &
 8338.04000000000, &
 8317.83000000000, &
 8297.49000000000, &
 8277.01000000000, &
 8256.41000000000, &
 8235.66000000000, &
 8214.79000000000, &
 8193.77000000000, &
 8172.62000000000, &
 8151.34000000000, &
 8129.92000000000, &
 8108.36000000000, &
 8086.66000000000, &
 8064.82000000000, &
 13716.6000000000, &
 13714.2900000000 /)

 Mref_V%vph_ref( 361 : 390 ) = (/ &
 13712.0000000000, &
 13709.7000000000, &
 13707.4200000000, &
 13705.1400000000, &
 13702.8600000000, &
 13700.5900000000, &
 13698.3300000000, &
 13696.0700000000, &
 13693.8200000000, &
 13691.5700000000, &
 13689.3300000000, &
 13687.0900000000, &
 13684.8600000000, &
 13682.6300000000, &
 13680.4100000000, &
 13680.4100000000, &
 13668.9000000000, &
 13657.4300000000, &
 13645.9700000000, &
 13634.5400000000, &
 13623.1400000000, &
 13611.7600000000, &
 13600.4000000000, &
 13589.0700000000, &
 13577.7600000000, &
 13566.4700000000, &
 13555.2000000000, &
 13543.9500000000, &
 13532.7200000000, &
 13521.5100000000 /)

 Mref_V%vph_ref( 391 : 420 ) = (/ &
 13510.3200000000, &
 13499.1400000000, &
 13487.9900000000, &
 13476.8500000000, &
 13465.7300000000, &
 13454.6300000000, &
 13443.5400000000, &
 13432.4600000000, &
 13421.4100000000, &
 13410.3600000000, &
 13399.3300000000, &
 13388.3100000000, &
 13377.3100000000, &
 13366.3100000000, &
 13355.3300000000, &
 13344.3600000000, &
 13333.4000000000, &
 13322.4500000000, &
 13311.5100000000, &
 13300.5800000000, &
 13289.6600000000, &
 13278.7400000000, &
 13267.8400000000, &
 13256.9300000000, &
 13246.0400000000, &
 13235.1500000000, &
 13224.2700000000, &
 13213.3900000000, &
 13202.5100000000, &
 13191.6400000000 /)

 Mref_V%vph_ref( 421 : 450 ) = (/ &
 13180.7800000000, &
 13169.9100000000, &
 13159.0500000000, &
 13148.1900000000, &
 13137.3300000000, &
 13126.4700000000, &
 13115.6100000000, &
 13104.7500000000, &
 13093.8900000000, &
 13083.0200000000, &
 13072.1600000000, &
 13061.2900000000, &
 13050.4200000000, &
 13039.5500000000, &
 13028.6700000000, &
 13017.7800000000, &
 13006.9000000000, &
 12996.0000000000, &
 12985.1000000000, &
 12974.1900000000, &
 12963.2800000000, &
 12952.3600000000, &
 12941.4200000000, &
 12930.4800000000, &
 12919.5400000000, &
 12908.5800000000, &
 12897.6100000000, &
 12886.6300000000, &
 12875.6300000000, &
 12864.6300000000 /)

 Mref_V%vph_ref( 451 : 480 ) = (/ &
 12853.6100000000, &
 12842.5800000000, &
 12831.5400000000, &
 12820.4800000000, &
 12809.4100000000, &
 12798.3200000000, &
 12787.2200000000, &
 12776.1000000000, &
 12764.9600000000, &
 12753.8100000000, &
 12742.6300000000, &
 12731.4400000000, &
 12720.2400000000, &
 12709.0100000000, &
 12697.7600000000, &
 12686.4900000000, &
 12675.2000000000, &
 12663.8900000000, &
 12652.5600000000, &
 12641.2000000000, &
 12629.8200000000, &
 12618.4200000000, &
 12606.9900000000, &
 12595.5400000000, &
 12584.0600000000, &
 12572.5600000000, &
 12561.0300000000, &
 12549.4800000000, &
 12537.8900000000, &
 12526.2800000000 /)

 Mref_V%vph_ref( 481 : 510 ) = (/ &
 12514.6400000000, &
 12502.9800000000, &
 12491.2800000000, &
 12479.5500000000, &
 12467.7900000000, &
 12456.0100000000, &
 12444.1900000000, &
 12432.3300000000, &
 12420.4500000000, &
 12408.5300000000, &
 12396.5800000000, &
 12384.6000000000, &
 12372.5800000000, &
 12360.5200000000, &
 12348.4300000000, &
 12336.3000000000, &
 12324.1400000000, &
 12311.9400000000, &
 12299.7000000000, &
 12287.4200000000, &
 12275.1100000000, &
 12262.7500000000, &
 12250.3500000000, &
 12237.9200000000, &
 12225.4400000000, &
 12212.9200000000, &
 12200.3600000000, &
 12187.7600000000, &
 12175.1100000000, &
 12162.4300000000 /)

 Mref_V%vph_ref( 511 : 540 ) = (/ &
 12149.6900000000, &
 12136.9100000000, &
 12124.0900000000, &
 12111.2200000000, &
 12098.3100000000, &
 12085.3400000000, &
 12072.3400000000, &
 12059.2800000000, &
 12046.1700000000, &
 12033.0200000000, &
 12019.8200000000, &
 12006.5600000000, &
 11993.2600000000, &
 11979.9000000000, &
 11966.5000000000, &
 11953.0400000000, &
 11939.5300000000, &
 11925.9700000000, &
 11912.3500000000, &
 11898.6900000000, &
 11884.9600000000, &
 11871.1900000000, &
 11857.3700000000, &
 11843.4800000000, &
 11829.5500000000, &
 11815.5700000000, &
 11801.5300000000, &
 11787.4400000000, &
 11773.3000000000, &
 11759.1000000000 /)

 Mref_V%vph_ref( 541 : 570 ) = (/ &
 11744.8500000000, &
 11730.5500000000, &
 11716.1800000000, &
 11701.7800000000, &
 11687.3100000000, &
 11672.8000000000, &
 11658.2300000000, &
 11643.6000000000, &
 11628.9200000000, &
 11614.1900000000, &
 11599.4000000000, &
 11584.5700000000, &
 11569.6800000000, &
 11554.7200000000, &
 11539.7200000000, &
 11524.6700000000, &
 11509.5600000000, &
 11494.3900000000, &
 11479.1700000000, &
 11463.8900000000, &
 11448.5500000000, &
 11433.1700000000, &
 11417.7300000000, &
 11402.2300000000, &
 11386.6800000000, &
 11371.0700000000, &
 11355.4100000000, &
 11339.6900000000, &
 11323.9100000000, &
 11308.0900000000 /)

 Mref_V%vph_ref( 571 : 600 ) = (/ &
 11292.2000000000, &
 11276.2500000000, &
 11260.2500000000, &
 11244.1900000000, &
 11228.0800000000, &
 11211.9000000000, &
 11195.6700000000, &
 11179.3800000000, &
 11163.0400000000, &
 11146.6300000000, &
 11130.1800000000, &
 11113.6700000000, &
 11097.1100000000, &
 11080.5100000000, &
 11080.5100000000, &
 11063.0100000000, &
 11045.2200000000, &
 11026.8200000000, &
 11008.4700000000, &
 10989.0400000000, &
 10969.6300000000, &
 10948.7600000000, &
 10928.0200000000, &
 10907.4200000000, &
 10886.9400000000, &
 10866.6000000000, &
 10846.4100000000, &
 10826.3500000000, &
 10806.4200000000, &
 10786.6100000000 /)

 Mref_V%vph_ref( 601 : 630 ) = (/ &
 10766.9000000000, &
 10278.8800000000, &
 10261.8700000000, &
 10244.8400000000, &
 10227.8200000000, &
 10210.8000000000, &
 10193.7800000000, &
 10176.7700000000, &
 10159.7400000000, &
 10142.7200000000, &
 10125.7100000000, &
 10108.7000000000, &
 10091.6800000000, &
 10074.6800000000, &
 10057.6800000000, &
 10040.6400000000, &
 10040.6700000000, &
 10010.5200000000, &
 9980.51000000000, &
 9950.64000000000, &
 9920.91000000000, &
 9891.35000000000, &
 9861.96000000000, &
 9832.79000000000, &
 9803.79000000000, &
 9774.98000000000, &
 9746.41000000000, &
 9718.08000000000, &
 9689.96000000000, &
 9662.10000000000 /)

 Mref_V%vph_ref( 631 : 660 ) = (/ &
 9634.47000000000, &
 9607.11000000000, &
 9579.97000000000, &
 9553.08000000000, &
 9526.38000000000, &
 9499.78000000000, &
 9473.25000000000, &
 9446.74000000000, &
 9420.19000000000, &
 9393.55000000000, &
 9366.75000000000, &
 9339.76000000000, &
 9312.50000000000, &
 9284.96000000000, &
 9257.04000000000, &
 9228.73000000000, &
 9199.94000000000, &
 8940.94000000000, &
 8930.61000000000, &
 8920.22000000000, &
 8909.68000000000, &
 8898.47000000000, &
 8886.28000000000, &
 8873.03000000000, &
 8858.58000000000, &
 8842.82000000000, &
 8825.64000000000, &
 8806.94000000000, &
 8786.67000000000, &
 8764.85000000000 /)

 Mref_V%vph_ref( 661 : 690 ) = (/ &
 8741.49000000000, &
 8716.63000000000, &
 8690.30000000000, &
 8662.50000000000, &
 8633.28000000000, &
 8602.66000000000, &
 8570.81000000000, &
 8538.06000000000, &
 8504.66000000000, &
 8470.92000000000, &
 8437.13000000000, &
 8403.52000000000, &
 8370.42000000000, &
 8338.11000000000, &
 8307.42000000000, &
 8278.36000000000, &
 8255.33000000000, &
 8236.90000000000, &
 8236.81000000000, &
 8222.27000000000, &
 8210.47000000000, &
 8201.14000000000, &
 8193.99000000000, &
 8188.67000000000, &
 8184.92000000000, &
 8182.39000000000, &
 8180.79000000000, &
 8179.83000000000, &
 8179.17000000000, &
 8178.54000000000 /)

 Mref_V%vph_ref( 691 : 720 ) = (/ &
 8177.64000000000, &
 8176.30000000000, &
 8174.55000000000, &
 8172.42000000000, &
 8169.91000000000, &
 8167.05000000000, &
 8163.88000000000, &
 8160.37000000000, &
 8156.58000000000, &
 8152.57000000000, &
 8148.41000000000, &
 8144.20000000000, &
 8144.32000000000, &
 8141.60000000000, &
 8139.01000000000, &
 8136.50000000000, &
 8134.11000000000, &
 8131.82000000000, &
 8129.66000000000, &
 8127.60000000000, &
 8125.65000000000, &
 8123.87000000000, &
 8122.23000000000, &
 8120.74000000000, &
 8119.38000000000, &
 8118.22000000000, &
 8117.13000000000, &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000 /)

 Mref_V%vph_ref( 721 : 750 ) = (/ &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000, &
 6800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000, &
 5800.00000000000 /)

 Mref_V%vsh_ref( 1 : 30 ) = (/ &
 3667.80000000000, &
 3667.79000000000, &
 3667.78000000000, &
 3667.75000000000, &
 3667.72000000000, &
 3667.67000000000, &
 3667.62000000000, &
 3667.55000000000, &
 3667.47000000000, &
 3667.39000000000, &
 3667.29000000000, &
 3667.18000000000, &
 3667.06000000000, &
 3666.94000000000, &
 3666.80000000000, &
 3666.65000000000, &
 3666.49000000000, &
 3666.32000000000, &
 3666.15000000000, &
 3665.96000000000, &
 3665.76000000000, &
 3665.55000000000, &
 3665.33000000000, &
 3665.10000000000, &
 3664.86000000000, &
 3664.61000000000, &
 3664.35000000000, &
 3664.08000000000, &
 3663.80000000000, &
 3663.51000000000 /)

 Mref_V%vsh_ref( 31 : 60 ) = (/ &
 3663.21000000000, &
 3662.90000000000, &
 3662.57000000000, &
 3662.24000000000, &
 3661.90000000000, &
 3661.55000000000, &
 3661.19000000000, &
 3660.81000000000, &
 3660.43000000000, &
 3660.04000000000, &
 3659.64000000000, &
 3659.22000000000, &
 3658.80000000000, &
 3658.36000000000, &
 3657.92000000000, &
 3657.47000000000, &
 3657.00000000000, &
 3656.53000000000, &
 3656.04000000000, &
 3655.55000000000, &
 3655.04000000000, &
 3654.53000000000, &
 3654.00000000000, &
 3653.47000000000, &
 3652.92000000000, &
 3652.36000000000, &
 3651.80000000000, &
 3651.22000000000, &
 3650.63000000000, &
 3650.04000000000 /)

 Mref_V%vsh_ref( 61 : 90 ) = (/ &
 3649.43000000000, &
 3648.81000000000, &
 3648.19000000000, &
 3647.55000000000, &
 3646.90000000000, &
 3646.24000000000, &
 3645.57000000000, &
 3644.89000000000, &
 3644.21000000000, &
 3643.51000000000, &
 3642.80000000000, &
 3642.08000000000, &
 3641.35000000000, &
 3640.61000000000, &
 3639.86000000000, &
 3639.10000000000, &
 3638.33000000000, &
 3637.55000000000, &
 3636.76000000000, &
 3635.96000000000, &
 3635.14000000000, &
 3634.32000000000, &
 3633.49000000000, &
 3632.65000000000, &
 3631.80000000000, &
 3630.93000000000, &
 3630.06000000000, &
 3629.18000000000, &
 3628.29000000000, &
 3627.38000000000 /)

 Mref_V%vsh_ref( 91 : 120 ) = (/ &
 3626.47000000000, &
 3625.55000000000, &
 3624.61000000000, &
 3623.67000000000, &
 3622.71000000000, &
 3621.75000000000, &
 3620.78000000000, &
 3619.79000000000, &
 3618.80000000000, &
 3617.79000000000, &
 3616.78000000000, &
 3615.75000000000, &
 3614.71000000000, &
 3613.67000000000, &
 3612.61000000000, &
 3611.55000000000, &
 3610.47000000000, &
 3609.38000000000, &
 3608.28000000000, &
 3607.18000000000, &
 3606.06000000000, &
 3604.93000000000, &
 3603.79000000000, &
 3602.65000000000, &
 3601.49000000000, &
 3600.32000000000, &
 3599.14000000000, &
 3597.95000000000, &
 3596.75000000000, &
 3595.54000000000 /)

 Mref_V%vsh_ref( 121 : 150 ) = (/ &
 3594.32000000000, &
 3593.10000000000, &
 3591.86000000000, &
 3590.61000000000, &
 3589.34000000000, &
 3588.07000000000, &
 3586.79000000000, &
 3585.50000000000, &
 3584.20000000000, &
 3582.89000000000, &
 3581.57000000000, &
 3580.24000000000, &
 3578.90000000000, &
 3577.54000000000, &
 3576.18000000000, &
 3574.81000000000, &
 3573.43000000000, &
 3572.03000000000, &
 3570.63000000000, &
 3569.22000000000, &
 3567.79000000000, &
 3566.36000000000, &
 3564.91000000000, &
 3563.46000000000, &
 3562.00000000000, &
 3560.52000000000, &
 3559.04000000000, &
 3557.54000000000, &
 3556.04000000000, &
 3554.52000000000 /)

 Mref_V%vsh_ref( 151 : 180 ) = (/ &
 3553.00000000000, &
 3551.46000000000, &
 3549.91000000000, &
 3548.36000000000, &
 3546.79000000000, &
 3545.21000000000, &
 3543.63000000000, &
 3542.03000000000, &
 3540.42000000000, &
 3538.81000000000, &
 3537.18000000000, &
 3535.54000000000, &
 3533.89000000000, &
 3532.23000000000, &
 3530.57000000000, &
 3528.89000000000, &
 3527.20000000000, &
 3525.50000000000, &
 3523.79000000000, &
 3522.07000000000, &
 3520.34000000000, &
 3518.60000000000, &
 3516.85000000000, &
 3515.09000000000, &
 3513.32000000000, &
 3511.54000000000, &
 3509.75000000000, &
 3507.95000000000, &
 3506.13000000000, &
 3504.31000000000 /)

 Mref_V%vsh_ref( 181 : 210 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%vsh_ref( 211 : 240 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%vsh_ref( 241 : 270 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%vsh_ref( 271 : 300 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%vsh_ref( 301 : 330 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000 /)

 Mref_V%vsh_ref( 331 : 360 ) = (/ &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 0.000000000000000E+000, &
 7264.66000000000, &
 7264.75000000000 /)

 Mref_V%vsh_ref( 361 : 390 ) = (/ &
 7264.85000000000, &
 7264.94000000000, &
 7265.03000000000, &
 7265.12000000000, &
 7265.21000000000, &
 7265.29000000000, &
 7265.38000000000, &
 7265.46000000000, &
 7265.54000000000, &
 7265.62000000000, &
 7265.69000000000, &
 7265.76000000000, &
 7265.84000000000, &
 7265.91000000000, &
 7265.97000000000, &
 7265.97000000000, &
 7261.63000000000, &
 7257.29000000000, &
 7252.97000000000, &
 7248.64000000000, &
 7244.33000000000, &
 7240.01000000000, &
 7235.71000000000, &
 7231.41000000000, &
 7227.12000000000, &
 7222.83000000000, &
 7218.55000000000, &
 7214.27000000000, &
 7210.00000000000, &
 7205.73000000000 /)

 Mref_V%vsh_ref( 391 : 420 ) = (/ &
 7201.47000000000, &
 7197.21000000000, &
 7192.95000000000, &
 7188.70000000000, &
 7184.45000000000, &
 7180.21000000000, &
 7175.97000000000, &
 7171.73000000000, &
 7167.50000000000, &
 7163.27000000000, &
 7159.04000000000, &
 7154.81000000000, &
 7150.59000000000, &
 7146.37000000000, &
 7142.15000000000, &
 7137.93000000000, &
 7133.71000000000, &
 7129.50000000000, &
 7125.29000000000, &
 7121.07000000000, &
 7116.86000000000, &
 7112.65000000000, &
 7108.44000000000, &
 7104.23000000000, &
 7100.02000000000, &
 7095.81000000000, &
 7091.60000000000, &
 7087.39000000000, &
 7083.18000000000, &
 7078.96000000000 /)

 Mref_V%vsh_ref( 421 : 450 ) = (/ &
 7074.75000000000, &
 7070.54000000000, &
 7066.32000000000, &
 7062.10000000000, &
 7057.88000000000, &
 7053.66000000000, &
 7049.44000000000, &
 7045.22000000000, &
 7040.99000000000, &
 7036.76000000000, &
 7032.52000000000, &
 7028.29000000000, &
 7024.05000000000, &
 7019.81000000000, &
 7015.56000000000, &
 7011.31000000000, &
 7007.06000000000, &
 7002.80000000000, &
 6998.54000000000, &
 6994.27000000000, &
 6990.00000000000, &
 6985.72000000000, &
 6981.44000000000, &
 6977.15000000000, &
 6972.86000000000, &
 6968.57000000000, &
 6964.26000000000, &
 6959.95000000000, &
 6955.64000000000, &
 6951.32000000000 /)

 Mref_V%vsh_ref( 451 : 480 ) = (/ &
 6946.99000000000, &
 6942.66000000000, &
 6938.31000000000, &
 6933.97000000000, &
 6929.61000000000, &
 6925.25000000000, &
 6920.88000000000, &
 6916.50000000000, &
 6912.11000000000, &
 6907.72000000000, &
 6903.32000000000, &
 6898.91000000000, &
 6894.49000000000, &
 6890.06000000000, &
 6885.62000000000, &
 6881.17000000000, &
 6876.72000000000, &
 6872.25000000000, &
 6867.78000000000, &
 6863.29000000000, &
 6858.80000000000, &
 6854.29000000000, &
 6849.78000000000, &
 6845.25000000000, &
 6840.71000000000, &
 6836.16000000000, &
 6831.60000000000, &
 6827.03000000000, &
 6822.45000000000, &
 6817.85000000000 /)

 Mref_V%vsh_ref( 481 : 510 ) = (/ &
 6813.25000000000, &
 6808.63000000000, &
 6804.00000000000, &
 6799.35000000000, &
 6794.70000000000, &
 6790.03000000000, &
 6785.34000000000, &
 6780.65000000000, &
 6775.94000000000, &
 6771.22000000000, &
 6766.48000000000, &
 6761.73000000000, &
 6756.97000000000, &
 6752.19000000000, &
 6747.40000000000, &
 6742.59000000000, &
 6737.76000000000, &
 6732.93000000000, &
 6728.07000000000, &
 6723.21000000000, &
 6718.32000000000, &
 6713.42000000000, &
 6708.51000000000, &
 6703.57000000000, &
 6698.62000000000, &
 6693.66000000000, &
 6688.68000000000, &
 6683.68000000000, &
 6678.66000000000, &
 6673.63000000000 /)

 Mref_V%vsh_ref( 511 : 540 ) = (/ &
 6668.58000000000, &
 6663.51000000000, &
 6658.43000000000, &
 6653.32000000000, &
 6648.20000000000, &
 6643.06000000000, &
 6637.90000000000, &
 6632.73000000000, &
 6627.53000000000, &
 6622.31000000000, &
 6617.08000000000, &
 6611.82000000000, &
 6606.55000000000, &
 6601.26000000000, &
 6595.94000000000, &
 6590.61000000000, &
 6584.91000000000, &
 6579.51000000000, &
 6574.11000000000, &
 6568.67000000000, &
 6563.22000000000, &
 6557.74000000000, &
 6552.24000000000, &
 6546.73000000000, &
 6541.19000000000, &
 6535.63000000000, &
 6530.05000000000, &
 6524.44000000000, &
 6518.82000000000, &
 6513.17000000000 /)

 Mref_V%vsh_ref( 541 : 570 ) = (/ &
 6507.50000000000, &
 6501.80000000000, &
 6496.09000000000, &
 6490.35000000000, &
 6484.59000000000, &
 6478.80000000000, &
 6472.99000000000, &
 6467.16000000000, &
 6461.30000000000, &
 6455.42000000000, &
 6449.51000000000, &
 6443.58000000000, &
 6437.63000000000, &
 6431.65000000000, &
 6425.65000000000, &
 6419.61000000000, &
 6413.56000000000, &
 6407.48000000000, &
 6401.37000000000, &
 6395.25000000000, &
 6389.09000000000, &
 6382.91000000000, &
 6376.70000000000, &
 6370.46000000000, &
 6364.20000000000, &
 6357.91000000000, &
 6351.59000000000, &
 6345.25000000000, &
 6338.88000000000, &
 6332.49000000000 /)

 Mref_V%vsh_ref( 571 : 600 ) = (/ &
 6326.05000000000, &
 6319.60000000000, &
 6313.13000000000, &
 6306.62000000000, &
 6300.08000000000, &
 6293.52000000000, &
 6286.92000000000, &
 6280.29000000000, &
 6273.64000000000, &
 6266.96000000000, &
 6260.25000000000, &
 6253.51000000000, &
 6246.75000000000, &
 6239.95000000000, &
 6239.95000000000, &
 6219.68000000000, &
 6200.29000000000, &
 6181.16000000000, &
 6162.04000000000, &
 6143.01000000000, &
 6123.98000000000, &
 6103.71000000000, &
 6083.53000000000, &
 6063.45000000000, &
 6043.44000000000, &
 6023.52000000000, &
 6003.73000000000, &
 5984.03000000000, &
 5964.38000000000, &
 5944.81000000000 /)

 Mref_V%vsh_ref( 601 : 630 ) = (/ &
 5925.27000000000, &
 5550.32000000000, &
 5541.20000000000, &
 5532.08000000000, &
 5522.96000000000, &
 5513.83000000000, &
 5504.71000000000, &
 5495.59000000000, &
 5486.47000000000, &
 5477.35000000000, &
 5468.22000000000, &
 5459.10000000000, &
 5449.97000000000, &
 5440.84000000000, &
 5431.71000000000, &
 5422.57000000000, &
 5422.59000000000, &
 5406.39000000000, &
 5390.30000000000, &
 5374.34000000000, &
 5358.52000000000, &
 5342.83000000000, &
 5327.31000000000, &
 5311.92000000000, &
 5296.73000000000, &
 5281.71000000000, &
 5266.86000000000, &
 5252.21000000000, &
 5237.78000000000, &
 5223.55000000000 /)

 Mref_V%vsh_ref( 631 : 660 ) = (/ &
 5209.54000000000, &
 5195.72000000000, &
 5182.10000000000, &
 5168.69000000000, &
 5155.42000000000, &
 5142.22000000000, &
 5129.05000000000, &
 5115.84000000000, &
 5102.55000000000, &
 5089.14000000000, &
 5075.50000000000, &
 5061.63000000000, &
 5047.46000000000, &
 5032.93000000000, &
 5018.03000000000, &
 5002.66000000000, &
 4986.77000000000, &
 4803.78000000000, &
 4800.54000000000, &
 4797.28000000000, &
 4793.96000000000, &
 4790.18000000000, &
 4785.78000000000, &
 4780.71000000000, &
 4775.00000000000, &
 4768.58000000000, &
 4761.41000000000, &
 4753.51000000000, &
 4744.86000000000, &
 4735.64000000000 /)

 Mref_V%vsh_ref( 661 : 690 ) = (/ &
 4725.88000000000, &
 4715.76000000000, &
 4705.34000000000, &
 4694.74000000000, &
 4684.08000000000, &
 4673.46000000000, &
 4662.94000000000, &
 4652.61000000000, &
 4642.55000000000, &
 4632.81000000000, &
 4623.51000000000, &
 4614.68000000000, &
 4606.39000000000, &
 4598.73000000000, &
 4591.76000000000, &
 4585.56000000000, &
 4580.21000000000, &
 4575.75000000000, &
 4575.74000000000, &
 4572.27000000000, &
 4569.53000000000, &
 4567.46000000000, &
 4566.02000000000, &
 4565.10000000000, &
 4564.66000000000, &
 4564.65000000000, &
 4564.99000000000, &
 4565.62000000000, &
 4566.47000000000, &
 4567.46000000000 /)

 Mref_V%vsh_ref( 691 : 720 ) = (/ &
 4568.58000000000, &
 4569.70000000000, &
 4570.85000000000, &
 4571.91000000000, &
 4572.83000000000, &
 4573.60000000000, &
 4574.16000000000, &
 4574.44000000000, &
 4574.42000000000, &
 4574.04000000000, &
 4573.36000000000, &
 4572.41000000000, &
 4572.46000000000, &
 4571.71000000000, &
 4570.93000000000, &
 4570.06000000000, &
 4569.16000000000, &
 4568.21000000000, &
 4567.22000000000, &
 4566.21000000000, &
 4565.16000000000, &
 4564.11000000000, &
 4563.05000000000, &
 4562.00000000000, &
 4560.94000000000, &
 4559.94000000000, &
 4558.94000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000 /)

 Mref_V%vsh_ref( 721 : 750 ) = (/ &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3900.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000, &
 3200.00000000000 /)

 Mref_V%eta_ref( 1 : 30 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 31 : 60 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 61 : 90 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 91 : 120 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 121 : 150 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 151 : 180 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 181 : 210 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 211 : 240 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 241 : 270 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 271 : 300 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 301 : 330 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 331 : 360 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 361 : 390 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 391 : 420 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 421 : 450 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 451 : 480 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 481 : 510 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 511 : 540 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 541 : 570 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 571 : 600 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 601 : 630 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 631 : 660 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 0.999990000000000, &
 0.999970000000000, &
 0.999950000000000, &
 0.999940000000000, &
 0.999900000000000, &
 0.999860000000000, &
 0.999800000000000, &
 0.999740000000000, &
 0.999660000000000 /)

 Mref_V%eta_ref( 661 : 690 ) = (/ &
 0.999570000000000, &
 0.999470000000000, &
 0.999340000000000, &
 0.999200000000000, &
 0.999040000000000, &
 0.998860000000000, &
 0.998640000000000, &
 0.998320000000000, &
 0.997900000000000, &
 0.997320000000000, &
 0.996540000000000, &
 0.995530000000000, &
 0.994260000000000, &
 0.992680000000000, &
 0.990750000000000, &
 0.988430000000000, &
 0.985710000000000, &
 0.982550000000000, &
 0.982500000000000, &
 0.979070000000000, &
 0.975310000000000, &
 0.971280000000000, &
 0.967040000000000, &
 0.962680000000000, &
 0.958230000000000, &
 0.953780000000000, &
 0.949380000000000, &
 0.945090000000000, &
 0.940980000000000, &
 0.937120000000000 /)

 Mref_V%eta_ref( 691 : 720 ) = (/ &
 0.933560000000000, &
 0.930340000000000, &
 0.927430000000000, &
 0.924830000000000, &
 0.922510000000000, &
 0.920460000000000, &
 0.918670000000000, &
 0.917110000000000, &
 0.915770000000000, &
 0.914650000000000, &
 0.913710000000000, &
 0.912960000000000, &
 0.912940000000000, &
 0.912540000000000, &
 0.912210000000000, &
 0.911930000000000, &
 0.911710000000000, &
 0.911550000000000, &
 0.911420000000000, &
 0.911340000000000, &
 0.911300000000000, &
 0.911290000000000, &
 0.911300000000000, &
 0.911350000000000, &
 0.911400000000000, &
 0.911470000000000, &
 0.911550000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

 Mref_V%eta_ref( 721 : 750 ) = (/ &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000, &
 1.00000000000000 /)

  if (SUPPRESS_CRUSTAL_MESH) then
    Mref_V%density_ref(718:750) = Mref_V%density_ref(717)
    Mref_V%vpv_ref(718:750) = Mref_V%vpv_ref(717)
    Mref_V%vph_ref(718:750) = Mref_V%vph_ref(717)
    Mref_V%vsv_ref(718:750) = Mref_V%vsv_ref(717)
    Mref_V%vsh_ref(718:750) = Mref_V%vsh_ref(717)
  endif


  end subroutine define_model_ref

